1. Дан двумерный массив размером 3x5. Вычислить сумму элементов массива

2. Дан массив целых чисел размеров 4 х4. Заменить все элементы главной диагонали на нули. Вывести на экран монитора содержимое массива до обработки и после обработки

3. В двумерном массиве 4 х4. Вычислить среднее арифметическое элементов главной диагонали.

4. В двумерном массиве вычислить количество четных элементов

5. Дан массив A (5,5). Вывести ее в элементы ниже главной диагонали в треугольном виде (т. е. напечатать элементы нижнего треугольника в виде треугольника)

1. Дан двумерный массив размером 3x5. Вычислить сумму элементов массива

var a: array[1 ... 3, 1 ... 5] of integer;

i, i2, sum: integer;

Begin

for i:=1 to 3 do

Begin

for i2:=1 to 5 do

Begin

Writeln ('Введите элемент '); readln (a[i, i2]);

sum+=a[i, i2];

end;

end;

Writeln ('Сумма: ', sum);

end.

2. Дан массив целых чисел размеров 4 х4. Заменить все элементы главной диагонали на нули. Вывести на экран монитора содержимое массива до обработки и после обработки

var

a: array[1 ... 4, 1 ... 4] of integer;

i, i2: integer;

begin

for i:=1 to 4 do

Begin

for i2:=1 to 4 do

Begin

Writeln ('Введите элемент: '); read (a[i, i2]);

end;

end;

Writeln ('Массив до изменений: ');

for i:=1 to 4 do

Begin

for i2:=1 to 4 do

Begin

write (a[i, i2]);

end;

writeln ();

end;

Writeln ('Массив после изменений: ');

for i:=1 to 4 do

Begin

for i2:=1 to 4 do

Begin

If i=i2 then

a[i, i2]:=0;

write (a[i, i2]);

end;

writeln ();

end;

end.

3. В двумерном массиве 4 х4. Вычислить среднее арифметическое элементов главной диагонали.

var

a: array[1 ... 4, 1 ... 4] of integer;

i, i2, sum, count: integer;

srednee: real;

begin

for i:=1 to 4 do

Begin

for i2:=1 to 4 do

Begin

Writeln ('Введите элемент: '); read (a[i, i2]);

If i=i2 then

Begin

sum+=a[i, i2];

count+=1;

end;

end;

end;

Writeln ('Массив: ');

for i:=1 to 4 do

Begin

for i2:=1 to 4 do

Begin

write (a[i, i2]);

end;

writeln ();

end;

srednee:=sum/count;

Writeln ('Среднее арифметическое главной диагонали массива: ', srednee);

end.

4. В двумерном массиве вычислить количество четных элементов

var

a: array[1 ... 4, 1 ... 4] of integer;

i, i2, sum, count: integer;

srednee: real;

begin

for i:=1 to 4 do

Begin

for i2:=1 to 4 do

Begin

Writeln ('Введите элемент: '); read (a[i, i2]);

If (a[i, i2] mod 2=0) then

Begin

count+=1;

end;

end;

end;

Writeln ('Массив: ');

for i:=1 to 4 do

Begin

for i2:=1 to 4 do

Begin

write (a[i, i2]);

end;

writeln ();

end;

Writeln ('Количество чётных элементов массива: ', count);

end.