Создать массив случайных чисел Y[1… 10,1…

Question

Создать массив случайных чисел Y[1… 10,1… 10]. Все элементы массива, расположенные ниже главной диагоналисделать равными -1.

Answer 1

98

alexa-karol

04 сентября 2022

var Y: array [1… 10,1… 10] of integer; i,j: integer; beginrandomize; for i: =1 to 10 do beginfor j: =1 to 10 do beginY[i,j]: =random (100); end; end; for i: =1 to 10 do beginfor j: =1 to 10 do beginif (j < i) then Y[i,j]: =-1; end; end; end. Извиняюсь, что столько раз исправлял — просто паскаль уже не помню)

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: