Регистрация
бахтылбек
25.09.2022 23:19
Информатика
Есть ответ 👍

Составить ! на языке паскаль подсчитать количество отрицательных чисел из 10 введенных с клавиатуры.найти количество чисел,не больше 100.

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

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

есенгельды
есенгельды
4,4(92 оценок)
Program n1; var a,k,kb,i: integer; begin k: =0; kb: =0; for i: =1 to 10 do begin readln(a); if a< 0 then k: =k+1; if a< =100 then kb: =kb+1; end; writeln(k); writeln(kb); end.
morozovnikitamotop
morozovnikitamotop
4,5(59 оценок)
If(a[i] div 100 = 0) and (a[i] div 10 < > 0) then s: = s+a[i];

Популярно: Информатика