Скачать программы    Все программы автора

Задание №5

Задан линейный массив целых чисел. Выбросить из данного массива элементы, удовлетворяющие свойствам:

1) элементы,равные 0;

2) элементы, равные числу x (x-вводится);

3) положительные элементы;

4) элементы, являющиеся четными числами;

5) элементы, кратные 3.

Program lm;

var {описание переменных}

a:array[1..100] of integer;

i,x,n,j:integer;

begin {начало программы}

writeln('ввести n'); {ввод количества элементов массива}

readln(n);

writeln('ввести x'); {ввод числа x}

readln(x);

for i:=1 to n do {цикл для ввода элементов массива}

begin

write('ввести i элемент массива');

readln(a[i]);

end;

for i:=1 to n do {цикл, проверяющий соответствует ли элемент массива условиям}

if (a[i]=0) or (a[i]=x) or (a[i]>0) or (a[i] mod 2=0) or (a[i] mod 3=0)

then begin

for j:=i to (n-1) do {цикл, выбрасывающий из массива элементы, удовлетворяющие условиям}

a[i]:=a[i+1];

n:=n-1;

end;

writeln('n=',n:2); {вывод результата на экран}

end. {конец программы}