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

Question

Информатика

Генуша

13 октября, 18:04

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

+3

Ответы (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.