Предмет: Информатика,
автор: Pesse
Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените всё его положительные элементы на наибольший отрицательный элемент. Выведите на экран исходный и полученный массив. На Паскале
Ответы
Автор ответа:
0
uses crt;
var min,i:integer;
a:array[1..10] of integer;
begin randomize;
for i:=1 to 10 do a[i]:=random(91)-40;
for i:=1 to 10 do write(a[i],' ');
min:=a[1];
for i:=1 to 10 do if min > a[i] then min:=a[i];
for i:=1 to 10 do if a[i]>0 then a[i]:=min;
writeln;
for i:=1 to 10 do write(a[i],' ');
readln;
end.
Похожие вопросы
Предмет: Математика,
автор: atlana76
Предмет: Алгебра,
автор: butenkobogdan2980
Предмет: Другие предметы,
автор: azizadzumanazova
Предмет: Математика,
автор: 08092012
Предмет: Математика,
автор: Дюймовочки