Дан массив, заполненный случайными целыми числами в диапазоне от -30000 до 30000. Напишите подпрограмму, которая заполнит второй массив (такой же или меньший по длине) только теми элементами первого массива, которые оканчиваются на 6 или на 1.

Например из массива: 1 22 33 4444 533 36, получим 1 36.

Размер массива заранее задан константой N. Используйте заголовок:

procedure isAvB(a: TMas; var b: TMas; var KolB: longint);

где KolB - количество элементов в массиве b.

Тип ТMas задан как array[1..N] of longint и может использоваться для описания параметров подпрограмм.

заранее большое

ŤằтьЯℌa2005    1   18.03.2021 18:09    9