Программирование. Вводится последовательность не равных нулю целых чисел. Найти и вывести сумму чисел больше Т (Т-вводится) и найти количество отрицательных чисел.

278

332

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

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

konstontinopols

Информатика

4,8(44 оценок)

ну тут кароче сложно

Объяснение:

dron2003

Информатика

4,6(8 оценок)

program dlb;

var

i,T,s,k : integer;

begin

i := 1;

writeln('Введите число T');

readln(T);

k := 0;

while i <>0 do

begin

readln(i);

if i > T then

s := s +i;

if i < 0 then

k := k + 1;

end;

write(s,',', k);

end.

дюха4004

Информатика

4,6(23 оценок)

1. открыть шкаф. 2.найти нужную тетрадь. 3. взять тетрадь. 4.закрыть шкаф. 5. сесть за стол. 6. положить тетрадь на стол. 7. найти ручку. 8.взять ручку. 9. начать писать работу. p.s. я не знаю на какую тему тебе нужен алгоритм.