Регистрация
dmitriytkach30
11.11.2022 10:29
Информатика
Есть ответ 👍

Кто изобрел первую машину работащую по программе

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

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

Zaika6432
Zaika6432
4,7(98 оценок)
Чарльз беббиджбританский
kolyakorolev
kolyakorolev
4,5(51 оценок)
Скорее всего жозеф мари жаккар
nestann
nestann
4,4(92 оценок)
Const n=5; var a: array [1..n] of integer; i,j,s,d,b: integer; begin s: =0; j: =0; for i: =1 to n do readln(a[i]); for i: =1 to n do if a[i] < 0 then begin s: =s+1; end else j: =j+1; if j = 0 then begin writeln('положительных чисел нет'); end else if s = 0 then begin writeln('отрицательных чистел нет'); end else begin if j > s then begin d: =j-s; writeln('положительных больше на ' + d); end else begin b: =s-j; writeln('отрицательных больше на ' + b); end end end.

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