Предмет: Информатика,
автор: KostikovBUKALOV
Паскаль. Даны 6 чисел. Каких чисел больше - положительных или отрицательных? Пожалуйста!
Ответы
Автор ответа:
0
uses crt;
var a, kp, ko, i: integer;
label 1;
begin
for i:=1 to 6 do
begin
writeln ('Введите число');
readln(a);
if a>0 then inc(kp) else inc(ko);
end;
if kp>ko then writeln ('Положительных чисел больше') else writeln ('Отрицательных чисел больше');
end.
Объяснение:
Похожие вопросы
Предмет: Українська мова,
автор: golubevaalexandra201
Предмет: Математика,
автор: Sa1at1k
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Рома200011