сервис вопросов и ответовСоздать массив случайных чисел Y[1..10,1..10]. Все элементы массива, расположенные ниже главной диагонали
10-11 класс|
|
сделать равными -1.
Eloin
14 июня 2013 г., 10:19:21 (10 лет назад)
Weller20
14 июня 2013 г., 12:47:05 (10 лет назад)
var Y: array [1..10,1..10] of integer;
i,j: integer;
begin
randomize;
for i := 1 to 10 do begin
for j := 1 to 10 do begin
Y[i,j] := random(100);
end;
end;
for i := 1 to 10 do begin
for j := 1 to 10 do begin
if (j < i) then Y[i,j] := -1;
end;
end;
end.
Извиняюсь, что столько раз исправлял - просто паскаль уже не помню ))
Ответить
Другие вопросы из категории
Сообщения записаны в кодировке Unicode. Объем первого сообщения 20Кбайт, что в 5 раз меньше второго, в строке каждого сообщения в среднем 64 символов.
Найти количество строк в объединенном сообщении.
Для ремонта школы использовали белую, синюю и коричневую краски. Израсходовали одинаковое количество банок белой и синей краски. Сообщение о том, что
закончилась банка белой краски, несет 2 бита информации. Синей краски израсходовали 8 банок. Сколько банок коричневой краски израсходовали на ремонт школы?
Читайте также
Пожалуйста помогите! Завтра у меня экзамен.. И вот вопрос, "Составить приложение в котором, создать массив целых чисел в интервале от -50 до 50 количестве
30 элементов. Заполнить с помощью случайных чисел, вычислить сумму отрицательных чисел и количество положительных чисел. Заранее спасибо!
помогите пожалуйста:
Создать массив случайных чисел (1-10), ввести с клавиатуры некоторое значение и определить номер элемента, равна этому значению, если таких элементов не существует, то вывести не существует.
Информатика(Паскаль) помогите пожалуйста
Создать массив случайных чисел, вывести его на экран в строчку. Из массива удалить все элементы, принадлежащие заданному интервалу
Вы находитесь на странице вопроса "Создать массив случайных чисел Y[1..10,1..10]. Все элементы массива, расположенные ниже главной диагонали", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.