Нужна в паскале указание:для каждой задачи создайте алгоритм и программу. заполните двумерный числовой масчив h(5,5) случайными целыми числами в интервале [-7;7].Выведите значения элементов массива в виде матрицы, причем на каждый элемент отведите 4 позиции. ответ каждой задачи следует выводить с новой строки и с пояснительным текстом. Кроме того, следует каждый раз производить пвывод массива на экран, если в нем произошли изменения: перестановка, замена, изменение значения элементов и т.д.
Задача 1)Найдите произведение положительных элементов первой строки массива
Задача 2)замените элементы,стоящие в нечетных столицах и имеющих отрицательное значение,на цифру 100
Задача 3)создайте новый одномерный массив из элементов, стоящих над главной диагональю
9petya
2
02.06.2021 13:03
4
Другие вопросы по теме Информатика
GeorgYanovski777
16.04.2020 11:46
OMGKristallikOMG
16.04.2020 11:46
Maximgrechka
16.04.2020 11:47
ske4
16.04.2020 11:47
kzizh
16.04.2020 11:47
моллск
16.04.2020 11:47
m3rry1
03.05.2021 09:24
ШахлаАлыева2007717
07.06.2019 08:40
coollkid
03.09.2021 19:17
Популярные вопросы
- Запишите 2 слова по схеме: корень,буква соеденяющия их,корень,суффикс,окончание...
2 - Антонимы к слову мама ответе *^▁^*(*^_^*)(; ω; )...
1 - Найдите лишнее по грамматическому признаку слово. рояль, тюль, мозоль,...
3 - 5вопросов по тексту киім кию туралы...
1 - Розкрийте значення фразеологізмів: забути язика в роті,мати синицю...
3 - 1) подчеркните словосочетания, в которых слова употреблены в переносном...
3 - Как относились в вавилонском царстве к рабам?...
3 - Кем была проведена денежная реформа в россии? е.ф.капкриным п.д.киселёвым...
1 - Можно ли риверу из произведения мексиканец назвать счастливым человеком?...
3 - Какой частью речи является выделеное слово в предложениях: как он...
1
##
var h := MatrRandom(5, 5, -7, 7);
h.Println(4);
Print('Произведение положительных элементов первой строки массива равно',
h.Row(0).Where(t -> t > 0).Product)
------------------------
##
var h := MatrRandom(5, 5, -7, 7);
h.Println(4);
h.Transform((v, i, j) -> j.IsEven and (v < 0) ? 100 : v);
Println('Результат замены отрицательных элементов в нечетных столбцах');
h.Println(4)
---------------------
##
var h := MatrRandom(5, 5, -7, 7);
h.Println(4);
var a := h.ElementsWithIndices.Where(t -> t[2] > t[1]).Select(t -> t[0]).ToArray;
Println('Массив из элементов, стоящих над главной диагональю');
a.Print