ПАСКАЛЬ СОСТАВИТЬ ПРОГРАММУ Найти среднее арифметическое элементов массива А(5), состоящего из целых чисел, вводимых с клавиатуры.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
i,sum:integer;
res:real;
a:array [1..5] of integer;
begin
for i:=1 to 5 do begin
readln(a[i]);
end;
for i:=1 to 5 do begin
sum:=sum+a[i];
end;
res:=sum/5;
writeln(res);
end.