Question

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

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.

Answer 2

только без переменной к

Answer 3

меняла старую программу и забыла удалить

Answer 4

спасибо))А проверяли в программе

Answer 5

да. работает. не за что))

Answer 6

класс