Водится число N, а затем N целых чисел.Необходимо вывести число Нулей, затем Число положительных и отрицательных чисел. Паскаль
8 класс (базовый уровень)
Ответы на вопрос
Ответил KnowsUser1
0
Ответ:
PascalABC.NET
begin
var zeroes, positives, negatives: integer;
var sqnc := ReadSeqInteger('Вводи: ', ReadInteger('n = '));
foreach var number in sqnc do begin
if number > 0 then inc(positives);
if number = 0 then inc(zeroes);
if number < 0 then inc(negatives);
end;
Println(zeroes, positives, negatives);
end.
Объяснение:
Ответил Bdnnd
0
А можно без foreach, ReadSeqInteger, sqnc. Ибо мы не проходили
Ответил KnowsUser1
0
А что вы, простите, тогда вообще проходите, если вы не знаете стандартные функции работы с вводом/выводом?
Ответил HappyCoder
0
Ответ:
var
i, chislo, count, c1, c2, c3: integer;
begin
write('Введите колличество чисел: ');
read(count);
writeln('Введите числа: ');
for i := 1 to count do
begin
readln(chislo);
if chislo = 0 then
c1 := c1 + 1;
if chislo > 0 then
c2 := c2 + 1;
if chislo < 0 then
c3 := c3 + 1;
end;
writeln('=0 ', c1);
writeln('>0 ', c2);
writeln('<0 ', c3);
end.
Новые вопросы