Ввести двумерный массив, в котором 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. Вывести на экран монитора преобразованный двухмерный массив в виде таблицы чисел, а также вывести результаты вычислений.
ЗАДАНИЕ
В двухмерном массиве вычислить произведение отрицательных элементов всех нечетных столбцов.