Ответы на вопрос:
Program qq; var a : array [1..6] of real; i : integer begin [ввод чисел] for i: =1 to 6 do begin if a[i]< 0 then begin a[i]: =abs(a[i]); end; end; [вывод] end.
Популярно: Информатика
-
1. Задан массив: var C: array [1..10] of integer; Являются ли корректными...
11111119910.07.2021 10:28 -
100 нарисовать в паскале любой рисунок кроме домика...
Золушка25104.09.2020 16:06 -
Растровая графика (описания особенности)...
Evagevko06.06.2023 06:51 -
статья набранная на компьютере содержит 10 страниц на каждой странице 40 строк...
dimonf13.04.2020 10:52 -
решить задачу по информатике. Очень нужно. Заранее У вас есть файл с книгой,...
AlyonaYarmak17.08.2021 01:51 -
1. Процессор с тактовой частотой 2ГГц обрабатывает большое количество дан-ных...
8953912389803.06.2020 11:16 -
1024 Кб = ___ Мб, 10 Кб = ___ байт, 2048 б = ___ Кб, 16 бит = байт, 5 Гб =...
alenayugova26Alena10.11.2020 04:44 -
Срешением, ! предлагаются 5 на абстрактном алгоритмическом языке. от вас требуются...
NJazira1105.12.2020 06:19 -
Напишите программы для решения .используйте операции div и mod. задано трёх...
lizavetabelkin27.01.2022 04:09 -
Дано: q=4Мбит/сек V=1536Кб t-? Решение:...
eligi234505.01.2023 17:58