Напишите блок схему к этой программе пожалуйста 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...
Напишите блок схему к этой программе пожалуйста
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.
Гость
Ответ(ы) на вопрос:
Гостьэто ведь паскаль? если да, то ответь. я напишу.
Не нашли ответ?
Похожие вопросы