Решите пожалуйста)) Паскаль: в одномерном массиве произвольных чисел требуется заменить...

Question

Решите пожалуйста)) Паскаль:
в одномерном массиве произвольных чисел требуется заменить числом 100 значения всех элементов, удовлетворяющих условию A[i]>=5

Answer 1

Const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
  for i:=1 to n do
     read(a[i]);
for i:=1 to n do
    if a[i]>5 then
       a[i]:=100;
for i:=1 to n do
   write(a[i]:4);
end.