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

123Настенька 123Настенька    3   09.06.2019 08:20    1

Ответы
daniabloger daniabloger  01.10.2020 22:57
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика