Сделайте и киньте электронную таблицу буду ! мальвина премирует учеников своей школы за хорошую учебу: за решенную ученик получает 5 конфет, за выученное стихотворение — 4 конфеты, за прочитанную книгу — 33 конфеты. буратино решил 1 , прочитал 2 книги и выучил 3 стихотворения. пьеро выучил 25 стихотворений и прочитал 10 книг. пудель артемон решил 15 и прочитал 3 книги. построить электронную таблицу, из которой будет видно: сколько всего было решено, книг прочитано и стихотво¬рений выучено; сколько всего конфет получил каждый ученик школы; сколько всего конфет потребовалось мальвине для премирования учеников; сколько конфет было получено за чтение книг, решение и заучивание стихотворений.

Будь-яка інформація передається повідомленнями. обмін даними також здійснюється між тваринами і навіть рослинами. так наприклад робочі бджоли, після того як зберуть багато нектару і пилок, до вулика вони повертаються, орієнтуючись за сонцем . повернувшись, вони повідомляють іншим бджолам не тільки про відстань, на якій знаходиться корм, але передусім про його положення щодо сонця. за спеціального кругового танцю бджоли розпові, наприклад, що джерело нектару знаходиться на відстані до 100 м від вулика. якщо ж джерело знаходиться далі, ніж за 100 м, то бджола виписує фігуру, подібну до літери „фіта" старого кириличного алфавіту. рухаючися по середній паличці „фіти", бджола виляє черевцем. як виявилось, рослини активно обмінюються інформацією між собою. гриби використовуються рослинами як система раннього сповіщення про атаки шкідників. коли одна рослина вражається тлею, вона повідомляє про це сусідів за системою "грибного зв'язку". цікавою є поведінка у павуків. якщо вони дуже швидко плетуть павутиння, то це віщуває про похолодання. якщо ми побачили, що ластівки низько літають над землею слід знати, що вони повідомляють про негоду.

Var a: array [1..100] of real;     n, i, kol: integer; begin     readln(n);     for i : = 1 to n do         read(a[i]);     kol : = 0;     for i : = 1 to n do begin         if (a[i] > 0)and(i mod 2 = 0)         then kol : = kol + 1;         if a[i] < 0         then a[i] : =0;     end;     writeln(kol); end.