Question

Написать программы в паскале. 1. Дан массив целых чисел. Напечатать все элементы, оканчивающиеся нулем. 2. Дан массив целых чисел. Все нечетные числа удвоить, а четные уменьшить вдвое.
Помогите, пожалуйста!

Answer 1

{1. Дан массив целых чисел. Напечатать все элементы, оканчивающиеся нулем.}
{mod  - остаток от деления, например 123 mod 10 =3}
var a: array [1..100] of integer;
   i,N:integer;
begin
 writeln('Введите кол-во элементов массива'); readln(n);
 writeln('введите эл-ты массива');
 for i:=1 to N do read(a[i]);
 writeln(' эл-ты массива оканчивающиеся нулем.');
 for i:=1 to N do
  if a[i] mod 10 =0 then writeln(a[i]:5); 
end.