Решить в программе паскаль
На вход поступают положительные и отрицательные числа. Ввод
осуществляется до тех пор, пока не будет введен нуль. Найти сумму всех
четных чисел, введенных с клавиатуры.

Pascal:
const n = 10;
var a:array [1..n] of integer;
     i,max,c:integer;
begin
 clrscr;
 readln (a[1]);
 max:=a[1];
 c:=1;
 for i:=2 to n do
  begin
   readln (a[i]);
   if a[i]>max then
    begin
     max:=a[i];
     c:=1;
    end
    else if a[i]=max then inc(c);
  end;
 writeln ('Kol-vo: ',c);
end.

C++:
#include <iostream>
using namespace std;

int main()
{
  int a[10];
  int c = 0,max;
  cin >>a[0];
  max = a[0];
  for (int i = 1; i<10; i++)
  {
    cin >>a[i];
    if (a[i]>max)
    {
      max = a[i];
      c = 1;
    }
    else if (a[i]==max)
             ++c;
  }
  cout <<"KOL_VO: " <<c <<endl;
  return 0;
}

1. Выделение текста
Форматирование абзаца
Форматирование шрифта
Форматирование списков
Форматирование таблиц
Колонки
Разделы
3. Чтобы изменить размещения рисунка, следует щелкнуть на нём правой кнопкой мыши и выбрать в контекстном меню пункт Формат рисунка.

Вы можете выбрать любое обтекание рисунка текстом:

в тексте;
вокруг рамки;
по контуру;
за текстом;
перед текстом.
Ниже, в Горизонтальном выравнивании выбираете выравнивание рисунка относительно текста:

По левому краю;
По центру;
По правому краю;
Другое;
4. обычный режим;
режим Web-документа;
режим разметки страницы;
режим структуры документа;
схема документа;
во весь экран;
режим предварительного просмотра.