Ввести n чисел .верно ли что количество введённых отрицательных чисел не превышает 5. в паскале

234

467

Посмотреть ответы 2

Ответы на вопрос:

SorrySorry

Информатика

4,4(14 оценок)

Var a: real; n,k,i: integer; begin writeln ('vvedi n'); readln(n); k: =0; for i: =1 to n do begin writeln ('vvedi a'); readln(a); if a< 0 then k: =k+1; end; if k< =5 then writeln ('верно, что количество отрицательных чисел не превышает 5') else writeln ('неверно, что количество отрицательных чисел не превышает 5') end.