3 паруса -(*мангалория*)
67 матроск -( симфолия)
Писал уже:
var input, num, nulls, positive, negative, i: integer;
begin
write('Введите кол-во чисел: ');
readln(input);
for i := 1 to input do begin
write('Введите число номером ', i, ': ');
readln(num); if num = 0 then inc(nulls, 1);
//if num < 0 then inc(negative, 1);
//if num > 0 then inc(positive, 1);
end;
writeln('Кол-во нулей: ', nulls);
//writeln('Кол-во положительных чисел: ', positive)
//writeln('Кол-во отрицательных чисел: ', negative);
<span>end.</span>
В конце программы пропущен end;
И еще не описан массив Dt
Ответ 17
b
ответ 18
a
ответ 19
b, c, d
ответ 20
нет