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

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

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

procedure zamena(var a: TMas);
Тип ТMas задан как array[1..N] of longint и может использоваться для описания параметров подпрограмм.

taitpaev2003    2   03.12.2020 14:37    9