Ввести двумерный массив, в котором 3 строки и 5 столбцов. Определить сколько в нем нечетных положительных чисел. Найти произведение отрицательных. Заменить элементы больше 10 на 1. Вывести первоначальный массив и полученный нужна программа и блок-схема, работаем в бэйсике

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Uses CRT;

Const n=5;

var a:array[1..n,1..n] of integer;

   i,j,p:integer;

begin

    ClrScr;

    for i:=1 to n do

    for j:=1 to n do

    begin

         a[i,j]:=Random(15)-5;

         gotoxy(j*5+5,i);

         write(a[i,j]);

    end;

p:=1;

writeln('');

for i:=1 to n do

for j:=1 to n do

if (a[i,j]<0) and odd(j) then

p:=p*a[i,j];

writeln('Ïðîèçâåäåíèå=',p);

end.

Объяснение:

ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ

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

2. Вывести на экран монитора исходный двухмерный массив в виде таблицы чисел.

3. Выполнить необходимые преобразования над исходным двухмерным массивом, а также выполнить необходимые вычисления.

4. Вывести на экран монитора преобразованный двухмерный массив в виде таблицы чисел, а также вывести результаты вычислений.

ЗАДАНИЕ

В двухмерном массиве вычислить произведение отрицательных элементов всех нечетных столбцов.