Ответы и объяснения

  • Участник Знаний
2014-04-03T04:34:01+04:00
3
a:array[1..5] of integer;
i:integer
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
a[i]:=a[i]*2;
for i:=1 to 5 do
writeln(a[i]);
readln;
end.

4
a:array[1..5] of integer;
s, i:real;
begin
for i:=1 to 5 do
readln(a[i]);
for i:=1 to 5 do
s:=s+a[i];
s:=s/2;
writeln(s:0:5);
readln;
end.


5
a:array[1..5] of integer;
i, min:integer;
begin
for i:=1 to 5 do
readln(a[i]);
min:=a[1];
for i:=1 to 5 do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.