40! баллов Найти среднее арифметическое массива var o:array[1...5] of integer;
i,s,n:integer;
s:real;
begin
s:=0;
n:=5;
for i:=1 to 5 do
begin
readln(o[i]);
s:=s+o[i];
sr:=s/n;
end.

Подправить чтобы было правильно.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Copyright © 2024 SCHOLAR.TIPS - All rights reserved.