Рузкый
13 For i:=2 to 5 do begin if min > a[i] then min:=a[i]; end; write(min);
14 program p1; uses crt; var a:array [1..20] of integer; i,k,s:integer; begin for i:=1 to 20 do begin read(a[i]); If a[i] mod 2 = 0 then K:=K+1; s:=s+a[i]; end; write(k,' ',s); end.
15 program p1; uses crt; var a:array [1..10] of integer; i,k,s,n:integer; begin read(n); writeln; for i:=1 to 10 do begin read(a[i]); s:=s+a[i]; If a[i] = N then K:=K+1; end; write(k,' ',s); end.
Answers & Comments
For i:=2 to 5 do begin
if min > a[i] then
min:=a[i];
end;
write(min);
14
program p1;
uses crt;
var a:array [1..20] of integer;
i,k,s:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
If a[i] mod 2 = 0 then
K:=K+1;
s:=s+a[i];
end;
write(k,' ',s);
end.
15
program p1;
uses crt;
var a:array [1..10] of integer;
i,k,s,n:integer;
begin
read(n);
writeln;
for i:=1 to 10 do begin
read(a[i]);
s:=s+a[i];
If a[i] = N then
K:=K+1;
end;
write(k,' ',s);
end.