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

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

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

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

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

класс

Program asd; const n=12; Var k,i:integer; p:array[1..n] of integer;Begin k:=0;For i:=1to n doread (p[i]); For i:=1 to n do beginIf (p[i] mod 3=0) and (p[i]>=-10) and (p[i]<=15) then p[i]:=0; write(p[i]);end;End.