Полное Решение пожалуйста!! Задан массив из 7 целых чисел. Заменить все положител?
Полное Решение пожалуйста!!
Задан массив из 7 целых чисел. Заменить все положител??ные элементы данного массива на его максимальный элемент?
Гость
Ответ(ы) на вопрос:
Гость Const n = 7;
var a:array[1..n]of integer;
max,i:integer;
begin
//Заполнение массива значениями в диапазоне
//от -100 до 100
//и одновременно находим максимальный элемент
max:=-100;
for i:=1 to n do begin
a[i]:=random(201)-100;
if a[i]> max then max:=a[i];
write(a[i]:3);
end;
writeln;
//В цикле находим положительные и
//меняем их на максимальный элемент
for i:=1 to n do begin
if a[i]>0 then a[i]:=max;
write(a[i]:3);
end;
writeln;
end.
Не нашли ответ?
Похожие вопросы