Program Vigod;
uses crt;
const
n = 12;
m = 13;
var
a:array[1..n,1..m] of integer;
i, j, max: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
{заполняем массив случайными числами}
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(101)-50;
if a[i,j] mod 3 = 0 then max:=a[i,j];
end;
{находим нужный элемент и выводим массив}
for i:=1 to n do
begin
for j:=1 to m do
begin
if (a[i,j] mod 3 = 0) and (a[i,j]>max)then
max:=a[i,j];
write(a[i,j]:4);
end;
writeln();
end;
writeln();
writeln('максимальный элемент кратный 3, равeн ',max);
end.
Проверено - работает на Паскаль АВС
Program ilnur17;
uses crt;
var
n,sum,temp: integer;
begin
write('Введите число ');
readln(n);
if n<>0 then
begin
sum:=0;
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
while n>=1 do
begin
write('Введите следующее число ');
readln(temp);
if (temp<0) and (temp mod 2 = 0 ) then
sum := sum + temp;
n:=n-1
end;
end
else
writeln('Вы ввели 0 - выход из программы');
writeln('Cуммa отрицательных четных чисел равна ',sum);
end.
