Регистрация
Lolla20031999
03.04.2022 12:08
Информатика
Есть ответ 👍

Дан массив положительных и отрицательных чисел. вывести количество положительных и отрицательных чисел, стоящих на нечетных местах.

154
191
Посмотреть ответы 3

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

Сабина761
Сабина761
4,6(41 оценок)
Uses crt; const z=5; var a: array [1..z] of real;     x,k,n: integer; begin       for x: =1 to z do       begin           readln(a[x]);           if (x mod 2=1) and (a[x]> 0) then inc(k);           if (x mod 2=1) and (a[x]< 0) then inc(n);       end;       writeln('положительных: ',k);       writeln('отрицательных: ',n); end.
nadiksmarschool
nadiksmarschool
4,6(76 оценок)
Var   k, sum, n, i: integer;   a: array of integer; begin   writeln('введите размерность массива: ');   readln(n);   setlength(a, n + 1);   writeln('введите ', n, ' элементов массива : ');   for i : = 1 to n do   begin     readln(a[i]);     if i mod 2 < > 0 then     begin       if a[i] > 0 then inc(sum);       if a[i] < 0 then inc(k);     end;   end;   writeln('кол-во положительных чисел, стоящих на нечетных местах: ', sum);   writeln('кол-во отрицательных чисел, стоящих на нечетных местах: ', k); end.
nikita1247
nikita1247
4,4(36 оценок)

a mod b - остаток от деления a на b

a div b - целая часть от деления a на b

sqr(a) - число a возведённое в квадрат

sqrt(a) - квадратный корень из a

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