35 баллов,помогите Безотлагательно (сделать надобно в turbo Pascal)

35 баллов,помогите СРОЧНО (сделать надобно в turbo Pascal)

Задать свой вопрос
1 ответ

var a : array [1..3,1..4] of integer;

i,j,k:integer;

begin

for i:=1 to 3 do

begin

for j:=1 to 4 do

begin

a[i,j]:=random(90)+10;

write(a[i,j]:4);

if a[i,j] mod 2=0 then k:=k+1

end;

writeln;

end;

writeln('Количество четных частей массива: ',k);

end.

Толик Шебеман
она не работает,выдаёт ошибку в виде тип integer не тот,а boolean
Тимур Утросин
т.е. даже исправив она выдаёт ответ 2184221842
Pashka Safjanov
На чём проверяешь?
Антонина Солоделова
Turbo
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт