Question

1. Дан двумерный массив размером 3x5. Вычислить сумму элементов массива
2. Дан массив целых чисел размеров 4х4. Заменить все элементы главной диагонали на нули. Вывести на экран монитора содержимое массива до обработки и после обработки
3. В двумерном массиве 4х4. Вычислить среднее арифметическое элементов главной диагонали.
4. В двумерном массиве вычислить количество четных элементов
5. Дан массив A(5,5). Вывести ее в элементы ниже главной диагонали в треугольном виде (т. е. напечатать элементы нижнего треугольника в виде треугольника)

Answer 1

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.