1. Дан массив А(N). Найти сумму элементов массива, кратных 8 и произведение положительных элементов. 2. Дана матрица В(N;N). Найти максимальный элемент, расположенный на главной диагонали и его индексы по столбцу и строке.
1. Дан массив А(N). Найти произведение элементов массива, меньших числа К и сумму элементов кратных 3. 2. Дана матрица В(N;N). Найти кол-во элементов, кратных 5, находящихся ниже главной диагонали.
1. Дан массив А(N). Найти кол-во элементов массива, равных В. и произведение отрицательных элементов. 2. Дана матрица В(N;N). Найти произведение отрицательных элементов, находящихся выше побочной диагонали.
1. Дан массив А(N). Найти произведение отрицательных элементов, кратных 3, имеющих четные индексы и их кол-во. 2. Дана матрица В(N;N). Найти сумму положительных элементов, находящихся выше главной диагонали.
1. Дан массив А(N). Найти кол-во элементов массива, равных нулю и сумму отрицательных элементов. 2. Дана матрица В(N;N). Найти произведение отрицательных элементов, находящихся выше побочной диагонали.
РЕШИТЬ БЛОК-СХЕМОЙ
mm=50; { максимально возможное кол-во строк }
nn=50; { максимально возможное кол-во столбцов }
var
a:array[1..mm,1..nn] of integer;
i,j,m,n:integer;
begin
Randomize;
Write('Количество строк в массиве: '); Read(n);
Write('Количество столбцов в массиве: '); Read(m);
Writeln('*** Исходный массив ***');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=Random(101)-50; { [-50;50] }
Write(a[i,j]:7)
end;
Writeln
end;
Writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if a[i,j]<0 then a[i,j]:=121212;
Write(a[i,j]:7)
end;
Writeln
end
end.