Помогите написать программку в паскале!!!!Написать программку в паскале:В одномерном массиве

Помогите написать программу в паскале!!!!
Написать программку в паскале:
В одномерном массиве из 10 целых чисел вычислить сумму четных чисел...

Задать свой вопрос
1 ответ
Var    a: array[1..10] of integer;    sum, i: integer;beginsum:=0;for i:=1 to 10 do    begin    readln(a[i]);    if a[i] mod 2=0 then        sum:= sum+a[i];    end;write(sum);end. 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт