Const N = 30;
Var a:array [1..N] of integer; b,c,d,i:integer;
begin
Writeln('Vvedite massiv');
for i:=1 to N do
readln(a[i]);
b:=0; c:=0; d:=0;
for i:=1 to N do begin
if a[i] = 0 then inc(b);
if a[i] > 0 then inc(c);
if a[i] < 0 then inc(d);
end;
writeln('Kol-vo ravnih 0 - ',b);
writeln('Kol-vo bolshe 0 - ',c);
writeln('Kol-vo menshe 0 - ',d);
readln;
end.
<span>
</span>
Дополните ваш вопрос или же добавьте картинку.
1.а
2.б
3.в
4.г
5.д
6.е
7.ё
8.ж
9.з
10.и
11.й
12.к
13.л
14.м
15.н
16.о
17.п
18.р
19.с
20.т
21.у
22.ф
23.х
24.ц
25.ч
26.ш
27.щ
28. Ъ
29.ы
30.ь
31.э
32.ю
33.я
Смотри, илья муромец сразу отпадает это либо добрыня либо алёша