Регистрация
истина4
11.07.2020 00:51
Информатика
Есть ответ 👍

я хотела подарить одному человеку стикеры, все сделала что дальше? Да, знаю я тупая хаха

171
443
Посмотреть ответы 1

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

micser2017
micser2017
4,8(81 оценок)

var a: array [1..20] of integer; i,s1,s2: integer;

begin

for i: =1 to 20 do begin

                              writeln('введите элемент ',i); read(a[i]);

                                if i mod 2=0 then s1: =s1+a[i] else

                                                            s2: =s2+a[i];

                          end;

writeln('среднее ариф. четных ',s1/20,'; а нечетных ',s2/20);

readln;

end.

 

ну как всегда: вопросы - в личку)

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