Вопрос по информатике:
Срочно! Помогите написать программу Паскаль, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO, а вывод -REPEAT...UNTIL (в скобках указана размерность массива):
1.заменить каждый отрицательный элемент произведением всех ненулевых элементов массива (8);
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.05.2015 20:18
- Информатика
- remove_red_eye 11974
- thumb_up 34
Ответы и объяснения 1
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.
- 23.05.2015 03:02
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.