Вопрос по информатике:
Сформировать целочисленный массив (6*6), заполненный случайным образом числами из промежутка [-50;50] ПАСКАЛЬ! ПОМОГИТЕЕ
- 09.08.2017 11:40
- Информатика
- remove_red_eye 12301
- thumb_up 54
Ответы и объяснения 2
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.
;- 09.08.2017 15:10
- thumb_up 21
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.
;- 09.08.2017 15:26
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.