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

Ответ: Спасибо большое!!!

Ответ: {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.