Дан массив 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 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.

Информация используется при принятии решений.

Информация используется при принятии решений.-Достоверность, полнота, объективность полученной информации обеспечат вам возможность принять правильное решение.

Информация используется при принятии решений.-Достоверность, полнота, объективность полученной информации обеспечат вам возможность принять правильное решение.-Ваша ясно и доступно излагать информацию пригодится в общении с окружающими.

Информация используется при принятии решений.-Достоверность, полнота, объективность полученной информации обеспечат вам возможность принять правильное решение.-Ваша ясно и доступно излагать информацию пригодится в общении с окружающими.-Умение общаться, то есть обмениваться информацией, становится одним главных умений человека в современном мире.

ответ:ОБЪЯВЛЕНИЕ МАССИВА

Массивы в Паскале используются двух типов: одномерные и двумерные.

Определение одномерного массива в Паскале звучит так: одномерный массив — это определенное количество элементов, относящихся к одному и тому же типу данных, которые имеют одно имя, и каждый элемент имеет свой индекс — порядковый номер.

Описание массива в Паскале (объявление) и обращение к его элементам происходит следующим образом:

Описание массива в Паскале

Объявление массива

var dlina: array [1..3] of integer;

begin

dlina[1]:=500;  

dlina[2]:=400;  

dlina[3]:=150;

...

dlina — идентификатор (имя) массива;

для объявления используется служебное слово Array (в переводе с англ. «массив» или «набор»);

[1..3] — в квадратных скобках ставится номер (индекс) первого элемента, затем две точки и индекс последнего элемента массива, т.е. по сути, указывается количество элементов; количество элементов массива называется размерностью массива

of integer (с англ. «из целых чисел») — указывает, к какому типу относится массив, of здесь — служебное слово.

 

Объявить размер можно через константу:

размер массива через константу

ИНИЦИАЛИЗАЦИЯ МАССИВА

Кроме того, массив может быть сам константным, т.е. все его элементы в программе заранее определены. Описание такого массива выглядит следующим образом:

const a:array[1..4] of integer = (1, 3, 2, 5);

Заполнение последовательными числами:

заполнение массива

Результат:

A[1] = 8, A[2] = 9, A[3] = 10, ..., A[N] = A[N-1] + 1

Ввод с клавиатуры:

Пример: Рассмотрим, как происходит ввод массива в Паскале:

writeln ('введите кол-во элементов: ');

readln(n); {если кол-во заранее не известно, - запрашиваем его}

for i := 1 to n do begin

  write('a[', i, ']=');

  read(a[i]);

  ...

end;

...

Объяснение: