Для массива а1, а2, а3 … а15 найти разность между средним арифметическим элементов массива и наименьшим из них.
Для массива а1, а2, а3 … а15 найти разность между средним арифметическим элементов массива и наименьшим из них.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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]
Не нашли ответ?
Похожие вопросы