М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ychviviv
ychviviv
14.04.2023 16:36 •  Информатика

Дан массив a из n целых чисел. требуется посчитать количество положительных элементов и количество отрицательных элементов. формат входных данных на первой строке входного файла записано натуральное число nn (n≤100)(n≤100) — число элементов в массиве. на следующей строке через пробел записаны целые числа aiai (|ai|≤1000)(|ai|≤1000) — элементы массива aa. формат выходных данных требуется через пробел вывести два числа — количество положительных и количество отрицательных элементов массива. примеры входные данные: 3 -2 0 5 выходные данные 1 1

👇
Ответ:
ИЛЬЯ2161
ИЛЬЯ2161
14.04.2023
//Dev-C++ 5.11 (C)

#include <stdio.h>

int main(void)
 {int arr[100],n,pos,neg;
 scanf("%d",&n);
 pos=0;
 neg=0;
 for(int i=0;i<n;i++)
  {scanf("%d",&arr[i]);
  if(arr[i]>0)
   pos++;
  if(arr[i]<0)
   neg++;}
 printf("%d %d",pos,neg);
 return 0;}
4,7(33 оценок)
Ответ:
vasakaktakovlwla
vasakaktakovlwla
14.04.2023
Var
  i, c, k, n: integer;
  ar: array[1..10000]of integer;

 begin
  c := 0;
  k := 0;
  readln(n);
  for i := 1 to n do
   begin
    read(ar[i]);
    if (ar[i] > 0) then c := c + 1;
    if (ar[i] < 0) then k := k + 1;
  end;
  write(c, ' ', k);
 end.
4,7(95 оценок)
Открыть все ответы
Ответ:
Полина2684
Полина2684
14.04.2023
Var a,b,c,d,e,x: integer;
BEGIN
    readln(a,b,c,d,e);
    if {1} a>b then begin x:=a; a:=b; b:=x;  end;
    if {2} c>d then begin x:=c; c:=d; d:=x;  end;
    if {3} a>c then begin x:=a; a:=c; c:=x; x:=b; b:=d; d:=x; end;
    if {4} c>e then
        if {5} b>c then
            if {6} b>d then
                if {7} a>e then begin x:=e; e:=b; b:=a; a:=x; end
                    else begin x:=e; e:=b; b:=x; end
                else
                if {7} a>e then begin x:=e; e:=d; d:=b; b:=a; a:=x; end
                    else begin x:=e; e:=d; d:=b; b:=x; end
            else
            if {6} a>e then begin x:=e; e:=d; d:=c; c:=b; b:=a; a:=x;  end
                else
                if {7} b>e then begin x:=e; e:=d; d:=c; c:=b; b:=x;  end
                    else begin x:=e; e:=d; d:=c; c:=x;  end
        else
        if {5} d>e then
            if {6} b>e then
                if {7} b>d then begin x:=e; e:=b; b:=c; c:=x;  end
                    else begin x:=e; e:=d; d:=b; b:=c; c:=x;  end
                else
                if {7} b>c then begin x:=b; b:=c; c:=x; x:=e; e:=d; d:=x;  end
                    else begin x:=e; e:=d; d:=x;  end
            else
            if {6} b>d then
                if {7} b>e then begin x:=b; b:=c; c:=d; d:=e; e:=x;  end
                    else begin x:=b; b:=c; c:=d; d:=x;  end
                else
                if {7} b>c then begin x:=b; b:=c; c:=x;  end;
    writeln;
    writeln(a,' ',b,' ',c,' ',d,' ',e);
END.
4,7(41 оценок)
Ответ:
ekhalyavin
ekhalyavin
14.04.2023
Алгоритм:
for j := 1 to N do
if (8 <= a[j]) and (a[j] <= 63) and (a[j] div 8 < a[j] mod 8) then k:=k + 1

for j := 1 to N  - перебор всех элементов массива
(8 <= a[j]) and (a[j] <= 63) - восьмеричная запись чисел от 8₁₀ до 63₁₀  содержит ровно две цифры 
(a[j] div 8 < a[j] mod 8) - первая (старшая) цифра меньше второй (младшей) при восьмеричная запись чисел от 8₁₀ до 63₁₀
k:=k + 1 - счётчик количества элементов массива соответствующих условиям

Программа целиком:
const N=40;
var a: array [1..N] of integer;
i, j, k: longint;
begin
for i:=1 to N do
readln(a[i]);
for j := 1 to N do
if (8 <= a[j]) and (a[j] <= 63) and (a[j] div 8 < a[j] mod 8) then k:=k + 1;
writeln('Количество элементов массива, восьмеричная запись которого содержит ровно две цифры, причем первая (старшая) цифра меньше второй (младшей), равно: ',k);
end.
4,5(27 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ