Составить на алгометрическом языке программу для сложения всех чётных чисел от

Составить на алгометрическом языке программку для сложения всех чётных чисел от 0 до 200. ( т.е. идёт алгорим обязан смотреться так:
алг
нач .......( помогите далее дописать)

Задать свой вопрос
1 ответ
Program task;const n=200;var a:array[0..n] of integer;     i,s: integer;  beginfor i:=0 to n do
 begin   if(a[i] mod 2=0) then
s:=s+1;
write('кол-во числе одинаково', s); end;
end.

начало - ввод данных ( в данном коде нету этого, так как все описано сходу же) - проверка условия, если истенно то увеличиваем счетчик, если нет, то ничего не делаем - вывод счетчика.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт