Регистрация
programprogram
15.09.2020 15:53
Информатика
Есть ответ 👍

Паскаль. написать программу подсчета количества отрицательных чисел среди любых 10 вводимых. 1 программа с использованием while, 2 программа - repeat

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

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

анюта1335
анюта1335
4,7(49 оценок)
Program riad; var a: array [1..10] of integer; i,j: byte; begin writeln('vvedite chisla'); for i: =1 to n do readln(a[i]); i: =1; j: =0; repeat if a[i]< abs(a[i]) then j: =j+1; i: =i+1; until i=10; writeln('kol-vo otricat = ',j); readln; end.
stazagreen
stazagreen
4,4(76 оценок)
A=2 b=2*a=2*2=4 a< b  ⇒ 2< 4  ⇒  true  ⇒ z=3*b+4=3*4+4=16

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