Регистрация
MOKOV07
10.07.2022 04:40
Информатика
Есть ответ 👍

Информатика 9 класс. Желательно с объяснением.

186
431
Посмотреть ответы 1

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

degorov152
degorov152
4,7(95 оценок)
Var a: array [1..1000] of integer; n, i, max, min, amount: integer; begin       read(n);       for i : = 1 to n do           read(a[i]);       max : = a[1];       min : = a[1];       amount : = 0;       for i : = 1 to n do       begin           if a[i] > max           then               max : = a[i];           if a[i] < min           then               min : = a[i];           if (i mod 2 = 0) and (a[i] < 0)           then               amount : = amount + 1;       end;       writeln('sum of min and max equals ',max + min);       writeln('amount of numbers below zero and on even places: ', amount);       for i : = 1 to n do           if i mod 2 = 0           then               write(a[i], ' '); end.

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