напишите в паскале программу
дан двумерный массив из n элементов
к-это количество элементов двумерного массива которые без остатка делятся на 5 программа заменяет элементы равные к на 0 а
если нет таких элементов то программа заменяет все элементы на 1
Ответы
const n=5;
var
a:array [1..n,1..n] of integer;
i,j,k:integer;
begin
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(151)-50;
write(a[i,j]:4);
if (a[i,j] mod 5 =0) then
inc(k);
end;
writeln;
end;
writeln;
if k<>0 then
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[i,j]=k then a[i,j]:=0;
write(a[i,j]:4);
end;
writeln;
end;
writeln('K= ',k);
end
else
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=0;
write(a[i,j]:4);
end;
writeln;
end;
writeln('K= 0');
end;
end.