Помогите решить:
В массиве, состоящем из n элементов, заменить элементы массива, значения которых отрицательные числа, числом 10
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
a: array of integer;
i, n: integer;
begin
write(Введите n );readln(n);
SetLength(a, n);
writeln(Исходный массив :);
for i := 0 to n - 1 do
begin
a[i] := random(-20, 20);write(a[i]:4);
end;
writeln;
writeln(Массив после обработки:);
for i := 0 to n - 1 do
begin
if a[i] < 0 then a[i] := 10;
write(a[i]:4);
end;
end.
Тестовое решение:
Введите n 10
Исходный массив :
-19 -14 -14 1 2 16 16 -6 0 19
Массив после обработки:
10 10 10 1 2 16 16 10 0 19
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
