program p51;
const m=5;
n=4;
var ar: array[1..n,1..m] of integer;
i,j,k:integer;
begin
randomize;
k:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
ar[i,j]:=random(5);
write(ar[i,j],' ');
end;
writeln;
end;
for i:=1 to n do
if ar[i,1]=ar[i,m] then
inc(k);
writeln(‘количество строк, в которых первый элемент совпадает с последним:’,k);
readln;
end.
Проверка блок-схемы |