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

Question

Информатика

Хариесса

7 января, 09:34

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

+5

Ответы (1)

Знаете ответ?

Корнелия · 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;

writeln;

writeln ('Новый массив: ') ;

for i:=1 to n do

write (a[i]:4) ;

end.