Дан массив действительных чисел a1, a2, a3, … , a10. в заданной последовательности все отрицательные числа увеличьте на 0.5, а все неотрицательные числа замените на 0.5. выполните вывод заданного массива и полученного массива на экран в одну строку через пробел.

230

298

Посмотреть ответы 2

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

динозаврррррр

Информатика

4,5(75 оценок)

Var a: array[1..10] of real; i: integer; begin for i: =1 to 10 do readln(a[i]); for i: =1 to 10 do write (a[i],' '); writeln; for i: = 1 to 10 do begin if a[i]< 0 then a[i]: = a[i]+0.5 else a[i]: = 0.5; write(a[i], ' '); end end.

alsutil

Информатика

4,7(9 оценок)

По моему один

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

Темы

Получить
полный доступ

150 000+ пользователей

Оформить подписку