Вопрос по информатике:
Сделайте в паскаль.
Дан массив вещественных чисел. Вывести на экран новое состояние массива, в котором: a) Каждый отрицательный элемент заменить на его абсолютную величину; b) Все элементы с нечетными номерами заменить на их квадратный корень; c) Из всех положительных элементов вычесть элемент с номером К1, из остальных К2.
- 19.04.2018 12:59
- Информатика
- remove_red_eye 16383
- thumb_up 13
Ответы и объяснения 1
write('Введите число K1');
read(b);
Write('Введите число k2');
read(c);
for i:=-10 to 10 doa[i]:=i;for i:=-10 to 10 do beginv:=a[i];if v >0 then a[i]:=a[i]*a[i];if a[i]<0 then a[i]:=a[i]*-1;
if a[i]>=0 then a[i]:=a[i]-b else a[i]:=a[i]-c;
end;end.
- 20.04.2018 02:30
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.