Срочно! Помогите написать программу Паскаль, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO, а вывод -REPEAT...UNTIL (в скобках указана размерность массива): 1.заменить каждый о...
Срочно! Помогите написать программу Паскаль, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO, а вывод -REPEAT...UNTIL (в скобках указана размерность массива):
1.заменить каждый отрицательный элемент произведением всех ненулевых элементов массива (8);
Гость
Ответ(ы) на вопрос:
Гостьconst
N = 8;
var
a: array[1..N] of integer;
p: integer;
i: byte;
begin
writeln('Введите массив из ', N, ' элементов');
i := 0;
p := 1;
while i < n do
begin
i := i + 1;
read(a[i]);
if a[i] <> 0 then p := p * a[i];
end;
writeln('Отредактированный массив');
i := 0;
repeat
i := i + 1;
if a[i] < 0 then a[i] := p;
write(a[i], ' ');
until i >= n;
end.
Не нашли ответ?
Похожие вопросы