Напишите программу формирования массива размером 5×5. Замените в нем нечетные значения элементов на минимальноее значение элементов последней строки выведите на экран исходный и измененный массив
54
ОТВЕТЫ
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(*** Исходный массив ***);
var a:=MatrRandom(5,5,-99,99);
a.Println(4);
var min5:=a.Row(4).Min;
for var i:=0 to 4 do
for var j:=0 to 4 do
if a[i,j].IsOdd then a[i,j]:=min5;
Writeln(*** Результирующий массив ***);
a.Println(4)
end.
Пример
*** Исходный массив ***
-65 20 -60 11 59
46 59 -28 65 -33
-34 37 73 -82 76
-57 68 26 85 82
44 -45 30 90 36
*** Результирующий массив ***
-45 20 -60 -45 -45
46 -45 -28 -45 -45
-34 -45 -45 -82 76
-45 68 26 -45 82
44 -45 30 90 36
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(*** Исходный массив ***);
var a:=MatrRandom(5,5,-99,99);
a.Println(4);
var min5:=a.Row(4).Min;
for var i:=0 to 4 do
for var j:=0 to 4 do
if a[i,j].IsOdd then a[i,j]:=min5;
Writeln(*** Результирующий массив ***);
a.Println(4)
end.
Пример
*** Исходный массив ***
-65 20 -60 11 59
46 59 -28 65 -33
-34 37 73 -82 76
-57 68 26 85 82
44 -45 30 90 36
*** Результирующий массив ***
-45 20 -60 -45 -45
46 -45 -28 -45 -45
-34 -45 -45 -82 76
-45 68 26 -45 82
44 -45 30 90 36
152
Отв. дан
Chizhovmo
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Mavenaya
Оцените информационный объем цифрового стереоаудиофайла длительностью звучания 1 минута, ...
2019-05-24 10:12:32
Cogakud
Нужна срочная помощь в информатике, хоть убей не понимаю ...
2019-05-24 10:05:55
Sezhyudda
Помогите пожалуйста, очень нужно!!! 1. Структура алгоритма, команды которого ...
2019-05-24 10:03:22
Руфин
Выведите с клавиатуры две символьные строки и определите Какие ...
2019-05-24 10:00:41