Згинирировать массив из 20 чисел подсчитать количество чётных. Плиз безотлагательно надо

Згинирировать массив из 20 чисел подсчитать количество чётных. Плиз безотлагательно надобно помогите

Задать свой вопрос
Роман Щегутов
язык
Руслан
Какой язык
Любовь Жулидова
язык программирования какой?
Мирослава Сиронина
Паскаль abs
Андрюша
паскаль abs это компилятор, но я сообразил
Kospor Taisija
и пиши без ошибок задания
Эмилия
Спасибо
Камилла Пермесская
А можно чуть-чуть побыстрее
Oksana Hemlina
теснее как бы
Полина Брандоа
Спс
1 ответ
Program z1;
var a:array [1..30] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 30 do 
begin
readln a[i];
if a[i] mod 2 =0 then k:=k+1;
end;
wreteln('четных',k);
end.
Евгений Иванушкин
там понизу
Лидия Бутвина
writeln
Анатолий
прост клаву не вижу нормально
Вася Мамантов
Ок
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт