Вопрос по информатике:
Напишите пожалуйста программy на турбо паскале, которая заменяет все отрицательные элементы массива нулями
- 06.11.2017 15:38
- Информатика
- remove_red_eye 8531
- thumb_up 67
Ответы и объяснения 1
Массив одномерный из 10 элементов.
var a : Array [1..10] Of Real;
I:integer;
Begin
For i:=1 to 10 do read (a[i]); {ввод элементов массива}
For i:=1 to 10 do {открыт цикл}
If a[i] < 0 then a[i]:=0; {сравнение элемента массива с нулем и если да то замена}
For i:= 1 to 10 do write(a[i]); {вывод элементов массива}
End.
- 06.11.2017 23:09
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.