Прямоугольные таблицы

1. Дан целочисленный массив X[1..5, 1..4]. Заменить в нем все элементы, меньшие 5 числом 111.

2. Дан целочисленный массив В[1..4, 1..3]. Заменить все его элементы их квадратами.

3. Дан действительный массив А[1..5, 1..3]. Напечатать индексы его отрицательных элементов.

4. Создайте двумерный целочисленный массив А[1..10, 1..7] и найдите сумму всех его элементов, имеющих оба нечетных индекса.

5. Дан целочисленный массив А[1..5, 1..3]. Вывести на экран элементы массива, кратные 5, и их индексы.

6. Введите с клавиатуры целочисленные элементы матрицы 3*3 и вычислите сумму элементов каждого столбца.

7. Дан целочисленный массив В[1..5, 1..5]. Напечатать его левую и правую диагонали.

8. Дан целочисленный массив В[1..5, 1..5]. Найти сумму элементов его правой диагонали и произведение элементов левой диагонали.

9. Дан целочисленный массив В[1..5, 1..5]. Вычислить сумму элементов этого массива, расположенных выше левой диагонали.

10.Дан целочисленный массив В[1..5, 1..5]. Вычислить произведение элементов этого массива, расположенных ниже левой диагонали.

11.Дан целочисленный массив В[1..5, 1..5]. Найти количество отрицательных элементов этого массива, расположенных ниже левой диагонали.

12.Дан целочисленный массив В[1..5, 1..5]. Найти количество положительных элементов этого массива, расположенных выше левой диагонали.

13.Дана таблица со сведениями о наличии сырья на каждом из 4-х участков пяти цехов. Определить номер цеха, в котором меньше всего сырья.

14.Даны целые числа а₁, а₂, а₃. Получить целочисленный массив В[1..3, 1..3], для которого B[i,j]=a_i-3a_j.

program ddd;

var a: array [1..10] of integer; b: array [1..3,1..3] of integer; i,j:integer;

begin

for i:=1 to 10 do

readln (a[i]);

writeln ('=======');

for i:=1 to 3 do

begin

for j:=1 to 3 do

begin

b[i,j] := a[ i ] - 3*a[ j ];

write (b[i,j]);

end;

writeln;

end;

end.

15.Даны действительные числа а₁, а₂, …, а₁₀, b₁, b₂, …, b₂₀. Получить действительный массив С[1..20, 1..10], для которого С[i,j]=a_j/(1+|b_i|).

16.Получить целочисленный массив А[1..10, 1..12], для которого a_ij=i+2j.

17.Дан целочисленный массив А[1..4, 1..5]. Найти среднее арифметическое каждого из столбцов.

program ddd;

const

n = 4;

m = 5;

var

Matr: array[1..n, 1..m] of integer;

Summa: integer;

i, j: integer;

begin

randomize;

writeln('Матрица: ');

for i:=1 to n do

begin

for j:=1 to m do

begin

Matr[i, j]:=random(20);

write(Matr[i, j]:4);

end;

writeln;

end;

writeln('------------------');

for j:=1 to n do

begin

Summa:=0;

for i:=1 to n do

Summa:=Summa+Matr[i, j];

writeln('Среднее в столбце', j, ': ', (Summa / n):0:2);

end;

end.

18.Дан действительный массив размерностью n*m, в которой не все элементы равны нулю. Получить новый массив путем деления всех элементов данного массива на ее больший по модулю элемент.

19.Дан целочисленный массив А[1..4, 1..5]. Определить номера тех строк массива, в которых есть хотя бы один элемент, равный 10.

20.Найти сумму всех элементов двумерного массива целых чисел размерности 5*5, расположенных на главной диагонали.

21.Найти минимальный элемент среди максимальных элементов строк двумерного массива целых чисел. Определить номер строки и столбца такого элемента.