Преобразовать массив, умножив все отрицательные числа на минимальное число этого массива pascal abc

197

224

Посмотреть ответы 2

Ответы на вопрос:

volodyanadya94p08rdb

Информатика

4,8(72 оценок)

Const n=10; var a: array [1..n] of integer; i,min: integer; begin for i: =1 to n do a[i]: =random(21)-10; writeln ('исходный массив: '); for i: =1 to n do write (a[i],' '); writeln; min: =a[1]; for i: =2 to n do if a[i]< min then min: =a[i]; writeln ('минимальный элемент = ',min); for i: =1 to n do if a[i]< 0 then a[i]: =a[i]*min; writeln ('преобразованный массив: '); for i: =1 to n do write (a[i], ' '); end.

nazar94

Информатика

4,4(47 оценок)

откройте приложение «Параметры», для этого нажмите на панели задач кнопку Пуск и далее выберите Параметры или нажмите на клавиатуре сочетание клавиш Windows + I. В открывшемся окне «Параметры» выберите категорию Система.