Предмет: Информатика,
автор: mikshoN
Для массива а1, а2, а3 … а15 найти разность между средним арифметическим элементов массива и наименьшим из них.
Ответы
Автор ответа:
0
Pascal
var a:array[1..15] of integer;
s,i:integer;
begin
for i:=1 to 15 do
read(a[i]);
s:=(a[1] + a[15])/2;
if (a[2]-a[1]) >= 0 then writeln(s - a[1]) else writeln(s - a[15]);
end.
var a:array[1..15] of integer;
s,i:integer;
begin
for i:=1 to 15 do
read(a[i]);
s:=(a[1] + a[15])/2;
if (a[2]-a[1]) >= 0 then writeln(s - a[1]) else writeln(s - a[15]);
end.
Автор ответа:
0
const n = 15;
var a:array[1..n] of integer;
i,min,s:integer;
begin
min:=20;
for i:=1 to n do begin
a[i]:=random(41)-20;
if a[i]<min then min:=a[i];
write(a[i]:4);
s:=s+a[i];
end;
writeln;
writeln('Минимальное: ',min, ' Среднее арифметическое: ', s/n);
writeln('Разность: ',s/n-min);
end.
Тестовое решение:
16 4 9 -5 12 0 -1 -4 4 9 5 -20 -14 7 14
Минимальное: -20 Среднее арифметическое: 2.4
Разность: 22.4
var a:array[1..n] of integer;
i,min,s:integer;
begin
min:=20;
for i:=1 to n do begin
a[i]:=random(41)-20;
if a[i]<min then min:=a[i];
write(a[i]:4);
s:=s+a[i];
end;
writeln;
writeln('Минимальное: ',min, ' Среднее арифметическое: ', s/n);
writeln('Разность: ',s/n-min);
end.
Тестовое решение:
16 4 9 -5 12 0 -1 -4 4 9 5 -20 -14 7 14
Минимальное: -20 Среднее арифметическое: 2.4
Разность: 22.4
Интересные вопросы
Предмет: Алгебра,
автор: daniilvostrikov855
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: География,
автор: res57
Предмет: Химия,
автор: xzeshnik