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

285

437

Посмотреть ответы 2

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

pallnash

Информатика

4,8(48 оценок)

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

ЗАДАНИЕ

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

тильняшка5

Информатика

4,7(80 оценок)

Const n=100; var a: array[1..n] of integer; max,i: integer; begin randomize; for i: =1 to n do begin writeln(a[i]=''); readln(a[i]); end; max: =a[1]; for i: =2 to n do if a[i]> max then begin max: =a[i]; end; writeln; writeln('max=',max); readln; end.