Разработка в среде Turbo Pascal программы заполнения двумерного массива.
Задан двумерный массив.
1. Заполнить массив случайными только отрицательными числами

Пробуй, редактор выставляет лишние пробелы, из-за этого ругается

спасибо,щас работает

а не знаешь как это условие выполнить "предусмотрев защиту элементов этого массива от неправильного ввода"?

Что мешало это условие сразу дать в вопросе?

Не все скопировал оказывается,не заметил когда отправил. Только щас увидел

const N=3;M=3;var X:array [1..N, 1..M] of integer;I, J:integer;beginrandomize;for i:=1 to N dofor j:=1 to M dox [I, J]:=Random(100)-100;for i:=1 to N dobeginfor j:=1 to M dowrite (' ',x[I,J]);writelnend;readlnend.