1.
program z1;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
writeln ('Квадратная матрица:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(10);
write(a[i,j]:3);
if i=j then s:=s+a[i,j]
end;
writeln;
end;
writeln('Среднее арифметическое элементов расположенных на главной диагонали: ',s/n)
end.
2.
program z2;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s,sp:integer;
begin
writeln ('Квадратная матрица:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(21)-10;
write(a[i,j]:5);
if i=j then s:=s+a[i,j]
end;
writeln;
end;
for i:= 1 to n do
for j:=1 to n do
if (a[i,j]>0) and (a[i,j]>s/n)then sp:=sp+a[i,j];
writeln('Сумма положительных элементов, превышаюших по величине среднее арифметическое всех элементов расположенных на главной диагонали: ',sp)
end.
3.
program z3;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,m,k:integer;
begin
writeln ('Двумерный массив:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(21)-10;
write(a[i,j]:5)
end;
writeln;
end;
m:=a[1,1];
for i:= 1 to n do
for j:=1 to n do
if a[i,j]<m then m:=a[i,j];
writeln ('Минимальный элемент ',m);
k:=0;
for i:= 1 to n do
for j:=1 to n do
if a[i,j]=m then
begin
writeln('Индексы [',i,',',j,']');
k:=k+1;
end;
writeln ('Количество минимальных элементов ',k)
end.
using System;
namespace Dvumerni_Случайные_числа
{
class Program
{
static void Main(string[] args)
{
//Случайный размер массива от 5 до 10 элементов
Random Value = new Random();
int RazmerMassiva = Value.Next(5,10);
//Объявление массива с случайным размером элементов
int[] Massiv_1 = new int [RazmerMassiva];
//Заносим случайные значения в массив от 1 до 5
Random RandomCifr = new Random();
for (int i = 0; i < Massiv_1.GetLength(0); i++)
Massiv_1[i] = RandomCifr.Next(1,5);
//Обьявление переменных чтобы работать в цикле "While"
int proverochka = 0;
int schetchikIndekca = 0;
/*Обьявление нового массива (Massiv_2),который будет по размеру таким же как размер массива "Massiv_1"
И будет принимать его значения увеличенные на 15 в цикле "While" */
int[] Massiv_2 = new int[Massiv_1.Length];
//Увеличиваем значения в Massiv_1 на 15 и заносим их в Massiv_2
while (Massiv_1.Length > proverochka)
{
Massiv_2[schetchikIndekca] = Massiv_1[schetchikIndekca] + 15;
proverochka++;
schetchikIndekca++;
}
//Выводим новый массив (Massiv_2) в консоль чтобы посмотреть как отработала программа
foreach (var item in Massiv_2)
Console.WriteLine(item);
}
}
}
Объяснение: Программа выполнена в C#. Не было указано на каком языке нужно выполнять.
