Pascal нужна помощь

1) Двумерные массивы
Дана квадратная матрица (5*5). Заполнить ее случайными целыми числами и вывести на экран в виде таблицы. Заменить все элементы матрицы, расположенные выше главной диагонали на 1, ниже главной диагонали -0. Главную диагональ оставить без изменения. Вывести на экран полученную матрицу.
2) Дан двумерный массив целых чисел(4*5).
Заполнить его случайными числами и вывести на экран в виде таблицы. Найти минимальный элемент массива и количество элементов, равных минимальному.
3) Дана квадратная матрица (4*4). Заполнить ее случайными целыми числами и вывести на экран в виде таблицы. Найти произведение всех ненулевых элементов главной и побочной диагоналей.

 

up

 

ну и в чем проблема? двумя циклами(i,j) через рандомайз заполняешь массив, потом темже циклом если i>j, то 1, иначе 0.

 

если напишу эт на с# переведешь в паскаль?

 

1)
#include <stdio.h>
int main(void)
{
int t,i, num[5][5];
/* загрузка чисел */
for(t=0; t<5; ++t)
for (i=0; i<5; ++i)
num[t] = (t*5)+i+1;

/* вывод чисел */
for (t=0; t<3; ++t)
{
for (i=0; i<4; ++i)
printf("%d ",num[t]);
printf ("\n");
}

/* замена чисел */
for(t=0; t<5; ++t)
for (i=0; i<5; ++i)
if (i>t)
num[t] = 1;
else
num[t] =0;
/* вывод чисел */
for (t=0; t<3; ++t)
{
for (i=0; i<4; ++i)
printf("%d ",num[t]);
printf ("\n");
}
return 0;
}

 

Дальше по примеру сможешь?
Для паскаля тут посмотри
www_pascal.helpov_net

 

2).
var
a : array [1..5,1..5] of longint;
min,i,j,k : longint;
begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do a[i,j]:=random(100);
for i:=1 to 5 do
begin
for j:=1 to 5 do write(a[i,j],' ');
writeln;
end;
min:=maxlongint;
for i:=1 to 5 do
for j:=1 to 5 do
if a[i,j]<min then min:=a[i,j];
for i:=1 to 5 do
for j:=5 to 5 do
if a[i,j]=min then inc(k);
writeln('Min : ',min);
writeln('Count : ',k);
end.