Регистрация
Анастасияпрофи1
22.05.2023 12:24
Информатика
Есть ответ 👍

3. Массив из 10 элементов (заполнение определите самостоятельно). Найти наименьший из четных элементов. 4. Массив М[1..n] задан в диапазоне значений [-20..20]. Найти минимальный из положительных элементов и вывести его порядковый номер.
5. Массив из 11 элементов задан на интервале [-10; 12]. Найти максимальный элемент этого массива и переместить его на первое место в массиве.
Паскаль

173
295
Посмотреть ответы 1

Ответы на вопрос:

amirak471
amirak471
4,7(6 оценок)
Var       c: integer;       n: real; begin       write('перевод в градусы (1) или в радины (2) ? ');       readln(c);       write('переводимая величина = ');       readln(n);             if c = 1 then               writeln(n, ' radian = ', n * 180 / pi, ' gradus')       else               writeln(n, ' gradus = ', n * pi / 180, ' radian') end.

Популярно: Информатика