Регистрация Спросить otvet5GPT
Shamorinka
11.06.2020 02:51
Информатика
Есть ответ 👍

Напишите программу которая выводит на экран (паскаль) а)положительные числа б)отрицательные в)четные г)нечетные на заметку(числа произвольные или любые (integer)) исправлено: даёться массив из n чисел вывести на экран количесвто чётных и нечётных,количество положительных и отрицательных элементов массивов

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

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

KsehiaKomleva
KsehiaKomleva
4,8(55 оценок)
Числа вводятся пользователем. прикрепил скрин работы программы, вот сама программа: var a: array[1..999]of integer; i,n: integer; begin write ('введите кол-во чисел: '); readln (n); for i: =1 to n do begin write ('введите ',i,' число: '); readln (a[i]); end; writeln; write ('числа введённые пользователем: '); for i: =1 to n do write (a[i],' '); writeln; writeln; write ('положительные: '); for i: =1 to n do begin if a[i]> 0 then write (a[i],' '); end; writeln; write ('отрицательные: '); for i: =1 to n do begin if a[i]< 0 then write (a[i],' '); end; writeln; write ('чётные: '); for i: =1 to n do begin if a[i] mod 2 = 0 then write (a[i],' '); end; writeln; write ('нечётные: '); for i: =1 to n do begin if a[i] mod 2 < > 0 then write (a[i],' '); end; end.
РоманРазумный
РоманРазумный
4,8(52 оценок)
Const   nn = 100; { максимальное количество элементов } var   a: array[1..nn] of integer;   i,n,k,kn,kp,ko,ke: integer; begin   writeln('введите количество элементов в массиве (n< =100): ');   readln(n);   writeln('введите элементы массива');   kn: =0; kp: =0; ko: =0; ke: =0;   for i : = 1 to n do   begin       read(k); a[i]: =k;       if k> 0 then inc(kp)       else if k< 0 then inc(kn);       if (k mod 2)=0 then inc(ke) else inc(ko)   end;   writeln('положительных элементов ',kp,', отрицательных ',kn);   writeln('четных элементов ',ke,', нечетных ',ko); end. тестовое решение: введите количество элементов в массиве (n< =100): 13 введите элементы массива 16 -5 8 21 0 -5 13 32 7 11 -4 2 -5 положительных элементов 8, отрицательных 4 четных элементов 6, нечетных 7
gagikgrigoryan
gagikgrigoryan
4,7(64 оценок)

uses crt; const a: array[1..6] of real=(3.5, -6.3, 2.1, 0.1, 5.1, -2.1); var i: integer; sum: real; beginfor i: =1 to 6 do if a[i]< 0.25 then sum: =sum+a[i]; write(sum); end.

это блок-схема

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

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

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS