Ответы
Ответ дал:
0
program z1;
var a:array [1..5] of integer;
s, k, n : integer;
begin
for I:=1 to 5 do begin
readln ( a[I]);
s:=s+a[I];
k:=k+1;
end;
n:=s/k;
writeln (s, k);
end.
надеюсь помог
var a:array [1..5] of integer;
s, k, n : integer;
begin
for I:=1 to 5 do begin
readln ( a[I]);
s:=s+a[I];
k:=k+1;
end;
n:=s/k;
writeln (s, k);
end.
надеюсь помог
Вас заинтересует
2 года назад
8 лет назад
8 лет назад
10 лет назад
10 лет назад