Задать вопрос
28 апреля, 01:16

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

+4
Ответы (1)
  1. 28 апреля, 04:30
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дан массив действительных чисел a1, a2, a3, ..., a10. В заданной последовательности все отрицательные числа увеличьте на 0.5, а все ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы