Предмет: Информатика,
автор: Monroe00
дан массив случайных чисел в диапазоне от -10 до 100. Заменить четные элементы 0. Напишите полностью код пожалуйста.
Ответы
Автор ответа:
0
1
2
3
4
5
6
7
8
9
uses
Arrays;
begin
Randomize;
var a := CreateRandomIntegerArray(ReadLnInteger('Размер массива: n='), -10, 100);
WriteLn('Создан массив случайных чисел: '); a.Writeln(' ');
for var i := 0 to a.Length-1 do if a[i] > 0 then a[i] := 0;
WriteLn('произведена замена: '); a.Writeln(' ');
end.
Интересные вопросы
Предмет: Русский язык,
автор: sasha9753
Предмет: Қазақ тiлi,
автор: alinaobedkova3
Предмет: Английский язык,
автор: klubnichka0
Предмет: Химия,
автор: kira88888888
Предмет: Математика,
автор: KatyaK16