С клавиатуры вводится 10 чисел найти среднее арифметическое этих чисел. Паскаль
Answers & Comments
Мавортий
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.
Answers & Comments
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.