Дана программа:
var i : byte;
a : array[1..10] of integer;
BEGIN
randomize;
for i:=1 to 10 do
begin
a[i]:=random(899)+100;
write(a[i]:4);
end;
writeln;
// Программа должна дописать в строку
// четные элементы массива,
// делящиеся на 3.
END.
Задание:
Доработайте программу таким образом, чтобы из исходного массива случайных целых чисел были отобраны четные делящиеся на 3.
i:integer;
begin
for i:=1 to 15 do
read(a[i]);
for i:=15 downto 1 do
write(a[i],' ');
end.
var a:array[1..4,1..4] of integer;
i,j,s:integer;
begin
for i:=1 to 4 do
for j:=1 to 4 do begin
read(a[i,j]);
if i=j then s+=a[i,j];
end;
for i:=1 to 4 do begin
for j:=1 to 4 do
write(a[i,j]:3);
writeln;
end;
writeln(s);
end.
var a:array[1..20] of integer;
i,max:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if (a[i]>=100) and (a[i]<1000) and (a[i] mod 9 <> 0) and (a[i]>max) then max:=a[i];
end;
if (max<>0) then writeln(max)
else writeln('Не найдено');
end.