Помогите решить: В массиве, состоящем из n элементов, заменить элементы массива, значения которых отрицательные числа, числом 10
Помогите решить:
В массиве, состоящем из 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
Не нашли ответ?
Похожие вопросы