В одномерном массиве заменить: элементы, большие - 2, но меньшие 2, нулями

Question

Информатика

Галек

4 марта, 13:05

В одномерном массиве заменить: элементы, большие - 2, но меньшие 2, нулями

+5

Ответы (1)

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

Евтихия · Answer 1

Uses crt;

const n=10;

var

i:integer;

a: array [1 ... n] of integer;

begin

for i:=1 to n do

begin

writeln ('a[', i,']=') ; read (a[i]) ;

end;

for i:=1 to n do

begin

if (a[i]>-2) and (2>a[i]) then

a[i]:=0;

end;

for i:=1 to n do

writeln ('a[', i,']=', a[i]) ;

end.