Вопрос по информатике:
Дано n чисел. Замените все отрицательные числа их модулями. Язык программирования Паскаль. Запишите с помощью массивов.
- 11.04.2018 15:04
- Информатика
- remove_red_eye 4782
- thumb_up 46
Ответы и объяснения 1
Var a,b:integer;
arr: array [0..100] of integer;
begin
writeln('введите длину массива');
readln(a);
writeln('введите элементы массива : ');
for b:=1 to a do begin
readln(arr[b]);
arr[b]:=abs( arr[b] );
end;
for b:=1 to a do begin
writeln('новый элемент массива ==> ',arr[b]);
end;
end.
- 12.04.2018 13:23
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.