Var y: array[1..12] of integer;
i,k:integer; s:real;
begin
for i:=1 to 12 do
read (y[i]);
for i:=1 to 12 do
if y[i] mod 2=0 then
begin
s:=s+y[i];
k:=k+1;
end;
s:=s/k;
write (s:5:1);
end.
Ну это уже смешно)
var
a,b : integer;
begin
readln(a);
readln(b);
if a > b then writeln(a)
else writeln(b);
<span>end.</span>
48 / 128сек = 0,375 Мбайт
0,375 Мбайт * 8 = 3 Мбит
или
0,375 Мбайт * 1024 = 384 Кбайт
Паскаль
program sss;
var i,n:integer;
begin readln(n);
for i:=1 to n-1 do write(2*i-1,' ');
writeln(2*n-1)
end.