1.
var
a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(20)+1;
write(a[i]:4);
end;
writeln;
for i:=20 downto 1 do
write(a[i]:4);
end.
2.
var
a: array [1..10] of integer;
i,j:integer;
begin
randomize;
i:=1; j:=1;
while j
begin
a[j]:=i;
i:=i+2;
write(a[j]:4);
inc(j);
end;
end.
3.
var
a:array [1..10] of integer;
min,max,mini,maxi,i:integer;
begin
randomize;
min:=0; max:=0; mini:=0; maxi:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)+1;
write(a[i]:4);
if a[i]
begin
min:=min+a[i];
inc(mini);
end
else if a[i]=50 then
begin
min:=min+a[i];
inc(mini);
max:=max+a[i];
inc(maxi);
end
else if a[i]>50 then
begin
max:=max+a[i];
inc(maxi);
end
end;
writeln;
writeln('
writeln('>=50: ', max/maxi);
end.
4.
var
a:array [1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:4);
end;
count:=0;
writeln;
for i:=1 to 10 do
if a[i] mod 2 = 1 then
begin
inc(count);
write(a[i]:4);
end;
writeln;
writeln('Count: ',count);
end.
5.
var
a:array [1..10] of integer;
i,count:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:4);
end;
count:=0;
writeln;
for i:=10 downto 1 do
if a[i] mod 2 = 0 then
begin
inc(count);
write(a[i]:4);
end;
writeln;
writeln('Count: ',count);
end.