Регистрация
Мария12Мария12
10.02.2020 21:05
Информатика
Есть ответ 👍

1. ВЫЧИСЛИТЕ ЗНАЧЕНИЕ ФУНКЦИИ. 2. ПРОГРАММУ ВЫБОРА ИЗ ТРЁХ ЧИСЕЛ 1, 2, 3 И ПЕЧАТИ СООТВЕТСТВЕННО ЭТИМ ЧИСЛАМ ТРЁХ РАЗЛИЧНЫХ ФРАЗ: ЗДОРОВО, УХ ТЫ!, ХОРОШО

242
476
Посмотреть ответы 1

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

илья1947
илья1947
4,6(1 оценок)

var

  mas: array[0..19]of integer;

  a, b, c, e: integer;

begin

  for a : = 0 to 19 do mas[a] : = random(100) - 50;

//заполняем массив  

  for a : = 0 to 19 do if mas[a] < 0 then b : = b + 1;

//количество отрицательных элементов

  for a : = 0 to 19 do if mas[a] mod 2 = 0 then c : = c + mas[a];

//сумму четных элементов

  for a : = 0 to 19 do  

    case mas[a] of

      1..20: e : = e + mas[a];

    end;

//произведение элементов из интервала 1; 20    

  write(b, ' ', c, ' ', e);

end.

пометки после двух слешей в программе писать не нужно , и сам массив я сделал на 20 элементов

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