Напишите блок схему к этой программе пожалуйста
uses crt;
const n = 5;
var a:array[1..N,1..N] of integer;
i,j:byte;
begin
for i:=1 to N do begin;
writeln;
for j:=1 to N do begin
a[i,j]:=random(10);
write(a[i,j], );
end; end;
writeln;
for i:=1 to N do begin
{writeln;}
for j:=1 to n do begin
if j>=i then write(A[i,j])
{else write( );}
end; end;
writeln;
for i:=1 to N do begin
{writeln;}
for j:=1 to n do begin
if j<=i then write(A[i,j])
{else write( );}
end; end;
writeln;
end.
Это ведь паскаль? если да, то ответь. я напишу.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
