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

Ответы:

САША СИДОРЕНКО

14-02-2014 18:59

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.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя РУМИЯ ТЕРЕЩЕНКО

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Дан массив p[12],заполненный с клавиатуры. Все элементы кратные 3 и удовлетворяющие условию, -10≤p[i]≤15 заменить на нуль.» от пользователя РУМИЯ ТЕРЕЩЕНКО в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!