Дан двумерный массив вывести на экран "да" если первый и последний столбец совпадают если не совпадают то вывести на экран "нет" решить в pascal
Const
n=3;
var
ma:array[1..n,1..n] of integer;
i,j,p:integer;
begin;
p:=0;
randomize;
writeln(Matrix:);
for i:=1 to n do
begin;
writeln;
for j:=1 to n do
begin;
ma[i,j]:=random(2);
write(ma[i,j]:4);
end;
end;
writeln;
for i:=1 to n do
if ma[i,1]<>ma[i,n] then p:=1;
if p=0 then write(Да) else write(Нет);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
