составить программу для нахождения среднего арифметического целых чисел от 15 до 25
Ответы на вопрос
Ответил alexeiStrug
0
program task;const n=10;var a:array[1..n] of integer; i,s: integer;
arf:real; beginfor i:= 1 to 10 do begin begin a[i]:=15+random(26); write(a[i]:4);
s:=a[i]+s;
end;
arf:=s/n;
write('среднее арифметическое равно = ' arf);
end;
end.
arf:real; beginfor i:= 1 to 10 do begin begin a[i]:=15+random(26); write(a[i]:4);
s:=a[i]+s;
end;
arf:=s/n;
write('среднее арифметическое равно = ' arf);
end;
end.
Новые вопросы
Геометрия,
2 года назад
Физика,
2 года назад
Математика,
8 лет назад
Математика,
9 лет назад
Математика,
9 лет назад