Регистрация
asya20045
24.03.2021 08:54
Информатика
Есть ответ 👍

Дан массив, заполненный случайными натуральными числами в диапазоне от 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 и может использоваться для описания параметров подпрограмм.

163
412
Посмотреть ответы 1

Ответы на вопрос:

МасяшкаМ
МасяшкаМ
4,6(9 оценок)

var x,c: real;

begin

read(x);

c: =frac(c);

writeln(c: 1: 6);

readkey;

end. 

 

Популярно: Информатика