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

Ответы

Числа вводятся пользователем. прикрепил скрин работы программы, вот сама программа: 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.

Спасибо

Ответ дал: FryDen

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

Спасибо

Ответ дал: Гость

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

Ответ дал: Гость

массив данных о стоимости товаров зададим в виде целочисленных констант

program primer_1; const a: array[1..12] of integer = (170, 180, 25, 36, 750, 1, 45, 28, 39, 10, 11, 58); i,min,k: integer; begin

min: =a[1];

for i: =2 to 12 do if a[i]< min then

begin

min: =a[i]; k: =i; write('минимальная стоимость ', min, ' индекс' ,k) end.

или скорее всего этот вариант

program primer_1; var a: array[1..12] of integer; i, min, k: integer; beginfor i: =1 to 12 do read(a[i]); {ввод стоимостей товаров}min: =a[1]; k: =0; for i: =2 to 12 do if a[i]< min then begin min: =a[i]; k: =i; end; write('мин. сто-мость ', min, ' индекс ' ,k)end.