Заменить максимальный по модулю отрицательный элемент массива нулём - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

заменить максимальный по модулю отрицательный элемент массива нулём

Решение задачи: «Заменить максимальный по модулю отрицательный элемент массива нулём»

textual
Листинг программы
const
 n=10;
var
 arr: array[1..100] of integer;
 i: integer;
begin
  for i:=1 to n do
   begin
    read(arr[i]);
     if arr[i]<0 then
      arr[i]:=0;
   end;
  for i:=1 to n do
   write(arr[i], ' ');
end.

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы