Задать вопрос Регистрация
Помочь другим

  • дан массив A (20) заполнить его случайными целыми числами из [-10;20] вывести на экран найти минимальный элементы массива и сумму положительных чисел

Ответы 1

  • var

      a: array [1..20] of integer;

      i, min, s: integer;

    begin

      min:= 20;

      s:= 0;

      for i:= 1 to 20 do 

      begin

        randomize;

        a[i]:= random(30) - 10;

        if a[i] < min then min:= a[i];

        if a[i] > 0 then s:= s + a[i];

      end;

      writeln('Минимальный элемент: ', min);

      writeln('Сумма положительных чисел: ', s);

    end.

    • Автор:

      kaeden
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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