Конечность алгоритма - его дискретность, т.е. выполняя алгоритм исполнитель не зациклится и достигнет какого-то результата.
88
В следующий раз можешь просто скопипастить программу в IDE
<u><em>НАЗЕМНЫЙ</em></u>
<em>Безрельсовый</em>
автомобили;
троллейбусы;
мотоциклы;
мотороллеры;
мопеды;
велосипеды; краны; тракторы;
экскаваторы; упряжки; телеги;
сани; снегоходы; болотоходы;
вездеходы; самокаты; коляски.
<em>Рельсовый</em>
- железнодорожный;
-трамваи;
- дрезины;
- вагонетки;
- монорельсовый.
<u><em>ВОДНЫЙ</em></u>
<em>морской речной подводный</em>
теплоходы; катера; танкеры; сухогрузы; паромы; баржи; буксиры; контейнеровозы; лихтеровозы; сейнеры; ледоколы; парусный; гребной; плоты; катамараны; на воздушной подушке.
теплоходы; катера; танкеры; сухогрузы; паромы; баржи; буксиры; контейнеровозы; лихтеровозы; сейнеры; ледоколы; парусный; гребной; плоты; катамараны; на воздушной подушке. подводные лодки;
батискафы;
батисферы.
<u><em>ВОЗДУШНЫЙ</em></u>
- самолеты;
- вертолеты;
- гидропланы;
- планеры;
- дельтопланы;
дирижабли;
воздушные шары.
<u><em>СПЕЦИАЛЬНЫЙ</em></u>
- метро;
- эскалаторы;
- лифты;
- подъемники;
- канатные дороги;
- транспортеры;
трубопроводы;
- транспорт войск и спецформирований.
Program n1;
var i,a,kn,pp,n: integer;
begin
write('введите кол-во чисел: ');
readln(n);
pp:=1;
kn:=0;
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a);
if a mod 2<>0 then kn:=kn+1;
if a>0 then pp:=pp*a;
end;
writeln('кол-во неч. чисел: ',kn);
writeln('произв. пол чисел: ',pp);
end.