Двумерные массивы.

[Makos]

Помогите пожалуйста.

Задание 1.
Найти сумму элементов матрицы В(4,4) целых чисел, лежащих выше побочной диагонали.
Задание 2.
Найти сумму элементов матрицы В(4,4) вещественных чисел, лежащих на главной диагонали.
Задание 3.
В массиве D (5,5) заменить все элементы, лежащие ниже побочной диагонали 0. Вывести преобразованный массив.
Задание 4.
В массиве А(3,3) элементы имеющие два четных индекса, заменить на 1. Вывести преобразованный массив на экран.
Задание 5
Преобразовать исходную матрицу так, чтобы первый элемент каждой строки был заменён нулевым значением.
Задание 6
Найти четные элементы в матрице А(3,3) и сформировать из них одномерный массив. Вывести его на экран под матрицей.

[Mad_Cat]

контакты в профиле - обращайтесь

[Makos]

Задача 1
program mass41;
uses crt;
var
a:array [1..4,1..4] of integer;
i,j,m,n: integer;
s:real;
begin
clrscr;
writeln('введите размерность матрици');
writeln('n-строки,m-столбцы');
read (n,m);
for i:=1 to n do
for j:=1 to m do
begin
gotoxy (4*j,i+5);
read(a[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
if i+j-1<n then
S:=S+a[i,j];
writeln ('матрица A');
write (S:6:3);
readkey;
end.
Задача 2
program mass41;
uses crt;
var
a:array [1..4,1..4] of real;
i,j,m,n: integer;
s:real;
begin
clrscr;
writeln('vvedite razmernost matrzi');
writeln('n-stroki,m-stolbzi');
read (n,m);
for i:=1 to n do
for j:=1 to m do
begin
gotoxy (4*j,i+5);
read(a[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
if i=j then
S:=S+a[i,j];
writeln ('matriza A');
write (S:6:3);
readkey;
end.
Задача 3
program mas3;
uses crt;
type
mas1=array[1..5,1..5] of integer;
var
a:mas1;
i,j,n,m:integer;
begin
clrscr;
n:=5;
m:=5;
writeln('vvedite alimenti matrici');
for i:=1 to 5 do
for j:=1 to 5 do
begin
gotoxy(5*j,i+1);
readln(a[i,j]);
end;
for i:=1 to 5 do
for j:=1 to 5 do
if i+j-1>n then
a[i,j]:=0;
clrscr;
for i:=1 to 5 do
for j:=1 to 5 do
begin
gotoxy(5*j,i+1);
Writeln (a[i,j]);
end;
Readkey;
end.
Задача 4
program mas4;
uses crt;
type
mas1=array[1..3,1..3] of integer;
var
a:mas1;
i,j,n,m:integer;
begin
clrscr;
n:=3;
m:=3;
writeln('vvedite alimenti matrici');
for i:=1 to 3 do
for j:=1 to 3 do
begin
gotoxy(3*j,i+1);
readln(a[i,j]);
end;
for i:=1 to 3 do
for j:=1 to 3 do
begin
if i mod 2 =0 then
if j mod 2 =0 then
a[i,j]:=1;
end;
clrscr;
for i:=1 to 3 do
for j:=1 to 3 do
begin
gotoxy(3*j,i+1);
Writeln (a[i,j]);
end;
Readkey;
end.