• Напишите блок схему к этой программе пожалуйста

    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.

Ответы 2

  • да паскаль
  • это ведь паскаль? если да, то ответь. я напишу.
    • Автор:

      frank253
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years