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.