Паскаль, 9й класс напишите решние

Question

Паскаль, 9й класс
напишите решние

---

Answer 1

 var a: array [1..10000] of integer;     
b,i:integer;
begin 
randomize; 
b:=0; 
for i:=1 to 10 do   begin     
a[i]:=random(20)-10;     
write(a[i],' ');     
if a[i]>2 then b:=b+1;   
end; 
writeln; 
 writeln('Колличество элементов >2: ', b); 
readln;
end.

Comments

да да да, позже мог ответить?

---

Вообще сервис для помощи решения домашней работы а не контрольной, т.е. я мог просто подать жалобу и не чего не писать.

---

а щас че то ты быстро отвечаешь

---

так ведь с компа сейчас, а не с телефона