дан массив случайных чисел в диапазоне от -10 до 100. Заменить четные элементы 0. Напишите полностью код пожалуйста.
Ответы на вопрос
Ответил Vanuskam
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.
Новые вопросы