var i,n,k:integer; a:array[1..12] of integer; begin write('Write k: '); readln(k); for i:=1 to 12 do begin a[i]:=Random(70)-10; write(a[i]:5); end;
writeln; writeln('Zadanie № 1'); for i:=1 to 12 do if ((a[i] mod 10) mod 2<>0) and (a[i] mod (a[i] mod 10)=0) then write(a[i]:5);
writeln; writeln('Zadanie № 2'); for i:=1 to 12 do If a[i] mod k=0 then write(k:3,a[i]) else write(a[i]:5);
writeln; writeln('Zadanie № 3'); for i:=12 downto 1 do if a[i]<0 then begin n:=a[i]; a[i]:=a[11]; a[11]:=n; break; end; for i:=1 to 12 do write(a[i]:5); readln end.
Answers & Comments
var i,n,k:integer;
a:array[1..12] of integer;
begin
write('Write k: '); readln(k);
for i:=1 to 12 do
begin
a[i]:=Random(70)-10;
write(a[i]:5);
end;
writeln;
writeln('Zadanie № 1');
for i:=1 to 12 do
if ((a[i] mod 10) mod 2<>0) and (a[i] mod (a[i] mod 10)=0)
then write(a[i]:5);
writeln;
writeln('Zadanie № 2');
for i:=1 to 12 do
If a[i] mod k=0
then write(k:3,a[i])
else write(a[i]:5);
writeln;
writeln('Zadanie № 3');
for i:=12 downto 1 do
if a[i]<0
then
begin
n:=a[i];
a[i]:=a[11];
a[11]:=n;
break;
end;
for i:=1 to 12 do
write(a[i]:5);
readln
end.