Дан массив p[12], заполненный с клавиатуры. Все элементы кратные 3 и удовлетворяющие условию, - 10≤p[i]≤15 заменить на нуль.

Question

Информатика

Орина

26 марта, 15:32

Дан массив p[12], заполненный с клавиатуры. Все элементы кратные 3 и удовлетворяющие условию, - 10≤p[i]≤15 заменить на нуль.

+1

Ответы (1)

Знаете ответ на вопрос?

Палуня · Answer 1

Program asd; const n=12;

Var k, i:integer; p:array[1 ... n] of integer;

Begin k:=0;

For i:=1to n do

read (p[i]) ;

For i:=1 to n do begin

If (p[i] mod 3=0) and (p[i]>=-10) and (p[i]<=15) then p[i]:=0;

write (p[i]) ; end;

End.