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

В одномерном массиве произвольных чисел требуется заменить числом 100 значения всех элементов,удовлетворяющих условию A[i]>=5. Паскаль.
Гость
Ответ(ы) на вопрос:
Гость
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;     writeln; writeln('Новый массив: ');              for i:=1 to n do                   write(a[i]:4); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы