N:=0;
for i:=1 to 50 do begin
write('x[',i,']='); readln(x);
if x<0 then N:=N+1;
end;
writeln('N=',N);
ответ Счастливого плавания
98% что программу ты написал правильно, просто я Паскаль немного забыл , но основное помню
1 Том Сойер второе 2 открытый паровоз 3 Вторая мировая война 3 шарлыкском и ищет Улики 4 и Снежная королева и пятое Мария вместе с водителем Сапсана Ваней
Ничего особенного для 8 класса.