Регистрация
Кристинаголубь
12.03.2020 00:19
Информатика
Есть ответ 👍

Сформировать целочисленный массив (6*6), заполненный случайным образом числами из промежутка [-50; 50] паскаль!

123
188
Посмотреть ответы 3

Ответы на вопрос:

бека151
бека151
4,4(32 оценок)

program massiv;

uses crt;

var i,j: integer;

        a: array[1..6,1..6] of integer;

begin

      clrscr;

      randomize;

      for i: =1 to 6 do            begin                for j: =1 to 6 do                    begin                        a[i,j]: =random(101)-50;                   end;         end;

 

  for i: =1 to 6 do      begin        for j: =1 to 6 do            begin              write(a[i,j]: 3);             end;   writeln; end;

 

readkey;

end.

 

 

 

 

 

 

 

 

 

 

AmalOmon
AmalOmon
4,7(86 оценок)

program z1;

uses crt;

const n=6;

var a: array [1..n,1..n] of integer;

        i,j: integer;

begin

clrscr;

for i: =1 to n do

begin

for   j: =1 to n do

begin

a[i,j]: =random(101)-50;

write (a[i,j]: 4);

end;

writeln;

end;

 

end.

emmka1
emmka1
4,6(45 оценок)

в 1770году

Объяснение:

Популярно: Информатика