В двумерном массиве (nxm) натуральных случайных чисел от 0 до 199. Найти и вывести на экран все двухзначные числа, у которых сумма цифр кратная 2, найти количество таких чисел
var mas: array[1..n,1..m] of integer; i,j: integer; qty: integer; a,b: integer;
begin
randomize;
{Заполнение массива числами} for i:=1 to n do begin for j:=1 to m do begin mas[i,j]:=random(200); if mas[i,j]=200 then mas[i,j]:=199; write(mas[i,j],' '); end; writeln; end; writeln('******************');
{Поиск двузначных чисел, сумма цифр которых кратна 2} qty:=0; for i:=1 to n do for j:=1 to m do if (mas[i,j]<100) and (mas[i,j]>9) then begin a:=mas[i,j] div 10; b:=mas[i,j]-a*10; if (a+b) mod 2=0 then begin Inc(qty); write(mas[i,j],' '); end; end;
writeln(''); writeln('количество чисел удовлетворяющих условию ',qty);
end.
0 votes Thanks 1
УмныйGey
Нету правильного ответа, нужно вывести все числа кратные двум и посчитать их кол-во. В данном решении этого нету
Answers & Comments
Verified answer
constn=8; m=8;
var
mas: array[1..n,1..m] of integer;
i,j: integer; qty: integer;
a,b: integer;
begin
randomize;
{Заполнение массива числами}
for i:=1 to n do begin
for j:=1 to m do begin
mas[i,j]:=random(200);
if mas[i,j]=200 then mas[i,j]:=199;
write(mas[i,j],' ');
end;
writeln;
end;
writeln('******************');
{Поиск двузначных чисел, сумма цифр которых кратна 2}
qty:=0;
for i:=1 to n do
for j:=1 to m do
if (mas[i,j]<100) and (mas[i,j]>9) then begin
a:=mas[i,j] div 10;
b:=mas[i,j]-a*10;
if (a+b) mod 2=0 then
begin
Inc(qty);
write(mas[i,j],' ');
end;
end;
writeln('');
writeln('количество чисел удовлетворяющих условию ',qty);
end.