Дана матрица

[dmdol]

Дана матрица C(5Х5) положительных и отрицательных элементов
1) Ввести элементы матрицы и вывести матрицу на экран дисплея
2) Вывести на экран дисплея элементы главной диагонали (i=j) определить их сумму и число положительных элементов главной диагонали
3) Включить в матрицу дополнительную строку с заданым номером К(К=6) вывести на экран новую матрицу С1 (6х5)
4) Реализовать поиск элемента по его индексам и вывод его на экран

помогите пожалуйста люди умные... очень нужно срочно завтра зачёт в универе сдавать а я 0 в паскале((( буду очень благодарен !
и блок схему пожалуйста если можно...

[Marques22]

дай асю надо кое что узнать=)

[Zhenya-Pvl]

да, и мне тоже =) у меня во вторник экзамен по информатике, как раз будет такая тема, надо бы задачек порешать))

[Marques22]

заранее готовишься))))

[dmdol]

449993950 вот ася

напишите кто нибудь прогу плииииз.....

[Sauber]

аааа.... за денюжку бы решил))

если что, то пиши 402142430

[dmdol]

извени денег нет я бедный студент...

[Zhenya-Pvl]

program Project;

{$APPTYPE CONSOLE}

uses
SysUtils;

var c:array[1..6,1..5] of integer;
i,j,sum,kol,x,y:integer;


begin
for I := 1 to 5 do //ввод матрицы
for J := 1 to 5 do
read (c[i,j]);

for I := 1 to 5 do //вывод матрицы
for J := 1 to 5 do
write (c[i,j],' ');
writeln;

sum:=0;
kol:=0;
for I := 1 to 5 do
for J := 1 to 5 do
if i=j then
begin
write (c[i,j],' ');
sum:=sum+c[i,j];
if c[i,j]>0 then
inc(kol);
end;
writeln ('сумма = ',sum,'; кол-во полож. эл-тов = ',kol);

for I := 1 to 5 do //матрица 6х5
read (c[6,i]);
for I := 1 to 6 do
for J := 1 to 5 do
write (c[i,j],' ');

readln (x,y); //вывод эл-та с индексами x,y
writeln (c[x,y]);
end.
{Дана матрица C(5Х5) положительных и отрицательных элементов
1) Ввести элементы матрицы и вывести матрицу на экран дисплея
2) Вывести на экран дисплея элементы главной диагонали (i=j)
определить их сумму и число положительных элементов главной
диагонали
3) Включить в матрицу дополнительную строку с заданым
номером К(К=6)
вывести на экран новую матрицу С1 (6х5)
4) Реализовать поиск элемента по его индексам и вывод его
на экран}

[dmdol]

Zhenya-Pvl спасибо огромное дружище!! выручил