Выручка заносится в двумерный массив в четвертый столбец в обратном по- рядке. магазин работал не более - id242979420221125 от Ludmila28041985 25.11.2022 04:29

Question

Информатика: Выручка заносится в двумерный массив в четвертый столбец в обратном по- рядке. магазин работал не более 9 дней. распечатать введенную выручку в прямом порядке. найти количество дней, когда магазин работал с прибылью.

Ludmila28041985 · Accepted Answer

var

arr: array of real;

n, null_elem, negative, positive, i: integer;

begin

randomize;

writeln('Введите размерность массива: ');

readln(n);

arr:=new real[n];

null_elem := 0;

negative := 0;

positive := 0;

writeln('Сгенерированный массив: ');

for i := 0 to n-1 do

begin

arr[i] := random * 98 - 44;

if (arr[i] = 0) then inc(null_elem);

if (arr[i] < 0) then inc(negative);

if (arr[i] > 0) then inc(positive);

write(arr[i]:10:2);

end;

writeln(#10, #10, 'Нулевых элементов: ', null_elem, #10, 'Отрицательных элементов: ', negative, #10, 'Положительных элементов: ', positive);

end.

MOGZ ответил