• ИНФОРМАТИКА, ПОМОГИТЕ. ПАСКАЛЬ, МАССИВЫ.
    Задать случайным образом 10 элементов массива: целые числа из интервала от -5 до 50. Найти:
    2) произведение элементов, стоящих на чётных местах;
    3) количество отрицательных элементов.
    4) Ввести с клавиатуры 12 элементов числового массива. Все положительные увеличить на 100, все отрицательные обнулить.

Ответы 2

  • a: array [1..50] of integer;i, pr, otr: integer;beginrandomize;for i := 1 to 10 do   a[i] := random(50) - 5;otr := 0;pr := a[2];for i := 1 to 10 do  begin     if (a[i] < 0) then inc(otr);     if (i mod 2 = 0) then       pr := pr * a[i];  end;writeln('Отрицательных - ',otr,' Произведение - ',pr);for i := 1 to 12 do beginread(a[i]);if(a[i] > 0) theninc(a[i],100)elsea[i] := 0;write(a[i],' ');end;end;
    • Автор:

      lincoln99
    • 6 лет назад
    • 0
  • вот держи,будут вопросы-пиши в лс
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years