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.
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.