Разработка в среде Turbo Pascal программы заполнения двумерного массива.
Задан двумерный массив.
1. Заполнить массив случайными только отрицательными числами
Ответы на вопрос
Ответил niveskrpon
0
const N=3;
M=3;
var X:array [1..N, 1..M] of integer;
I, J:integer;
begin
randomize;
for i:=1 to N do
for j:=1 to M do
x [I, J]:=Random(100)-100;
for i:=1 to N do
begin
for j:=1 to M do
write (' ',x[I,J]);
writeln
end;
readln
end.
M=3;
var X:array [1..N, 1..M] of integer;
I, J:integer;
begin
randomize;
for i:=1 to N do
for j:=1 to M do
x [I, J]:=Random(100)-100;
for i:=1 to N do
begin
for j:=1 to M do
write (' ',x[I,J]);
writeln
end;
readln
end.
Ответил niveskrpon
0
Пробуй, редактор выставляет лишние пробелы, из-за этого ругается
Ответил timurn73
0
спасибо,щас работает
Ответил timurn73
0
а не знаешь как это условие выполнить "предусмотрев защиту элементов этого массива от неправильного ввода"?
Ответил Аноним
0
Что мешало это условие сразу дать в вопросе?
Ответил timurn73
0
Не все скопировал оказывается,не заметил когда отправил. Только щас увидел
Новые вопросы