Ребят, умоляю, помогите пожалуйста я щас заплачу.......

GoldenStrimer: и там все будет

Avylkosttt: А паскаля у меня нет

GoldenStrimer: щас тогда

GoldenStrimer: а можно не фото?

Avylkosttt: А как?

GoldenStrimer: то я долго писать ее буду

Avylkosttt: Секундочку

Avylkosttt: Program mas3;
Var A: array [1..10] of integer;
​k, X: integer;​
BEGIN
writeln ('Нахождение количества четных элементов массива');
k:=0;
For x:=1 to 10 do
begin
A[x]:=random(50); {заполнение элемента массива}
Write (A[x], ' '); {печать элемента массива в одну строку через пробел}
if A[x] mod 2 =0 then {если элемент массива четный, т.е делится на 2 без остатка}
k:=k+1; {количество таких элементов массива увеличиваем на 1}
End;
writeln;
Writeln('Количество четных элем.=',k);
End.

GoldenStrimer: спасибо

GoldenStrimer: там ошибка щас исправлю