С клавиатуры вводится 10 чисел найти среднее арифметическое этих чисел. Паскаль
С клавиатуры вводится 10 чисел найти среднее арифметическое этих чисел. Паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar a:array[1..10] of integer;
i,k:integer;
s:real;
begin
k:=0;
writeln('Введите числа');
for i:=1 to 10 do
begin
readln(a[i]);
k:=k+a[i];
end;
s:=k/10;
writeln('Среднее арифметическое равняется ',s);
end.
Не нашли ответ?
Похожие вопросы