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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
