C клавиатуры вводятся 10 целых чисел. Определить, каких больше: положительный или отрицательных.

Знания

Информатика

1 ответ:

Котувакне [7]4 года назад

0 0

<span>const N = 10;
var
i,otr,pol,K: integer;
BEGIN
otr:=0; //отриацательные числа
pol:=0; //положительные числа
for i:=1 to N do
begin
Write('Введите число #', i, ': '); Read(K);
if (K < 0) then inc(otr)
else
if (K <> 0) then inc(pol);
end;
if (otr > pol) then Writeln('Отрицательных больше')else writeln('Положительных больше');end.
<span>
</span></span>

Читайте также

Подскажите пожалуйста 6 з2.Спасибо

Ахунчик

Ответ НОМЕР ДВА²²²²²²²²²

0 0

4 года назад

Укажите какой из режимов относятся к работе со слайдами: А) Из шаблона Б) Слайды В) Показ слайдов Г) Обычный Д) Структура Е) Нов

Алексей Свиридов

Обычный и структура правильно

0 0

4 года назад

Ввести два числа. Вычесть из большего меньшее С++

TATY180

#include <bits/stdc++.h>

using namespace std;

int main()

{ int a,b,mx;

cin >> a >> b;

if (a>b) cout << (a-b); else

cout << (b-a);

}

0 0

4 года назад

Запись числа 210(по 5-ричной СС) в некоторой системе счисления выглядит так: 313n. Найдите основание системы счисления n.

НаталияИ

Подробное решение во вложении
Ответ: 4 система счисления

0 0

4 года назад

Пользователь вводит четыре числа. Найдите наибольшее четное число среди них. Если оно не существует, выведите фразу "not found".

zzzz7474

Var
    a: array[1..4] of integer;
    i, max: integer;

begin
    for i := 1 to 4 do
        readln(a[i]);

    max := a[1];
    for i := 1 to 4 do
        if (a[i] mod 2 = 0) and (a[i] >= max) then
            max := a[i];

    if max mod 2 = 0 then
        writeln(max)
    else
        writeln('not found');
end.

0 0

4 года назад

Прочитать ещё 2 ответа