Регистрация
Dmitry321123
02.06.2022 10:11
Информатика
Есть ответ 👍

сделайте тест по инфе сделайте тест по инфе сделайте тест по инфе сделайте тест по инфе сделайте тест по инфе ">

226
494
Посмотреть ответы 1

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

Vafelka225
Vafelka225
4,7(77 оценок)
Var a : array[1..50] of integer;             sum, i : integer; begin randomize; for i : = 1 to 50 do begin          a[i] : = random(31)-10;           if (a[i] > 0) and (i mod 2 < > 0) then                  sum : = sum + a[i];   end; write(sum) end.

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