Массивы (pascal)

[Стасссс]

1. Дан массив А(30). Найти произведение первых семи элементов данного массива.
2. Дан двумерный массив В(20;10). Элементы вводятся с клавиатуры, найти и вывести минимальный элемент данного массива.

Буду очень признателен

[ponchikpk]

2:

uses crt;
const n=20; m=10;
var b:array[1..n,1..m] of integer;
i,j,min:integer;
BEGIN
clrscr;
for i:=1 to n do
  for j:=1 to m do
    readln(b[i,j]);
min:=b[i,j];
for i:=1 to n do
  for j:=1 to m do
    if b[i,j]<min then min:=b[i,j];
writeln;
writeln('min=',min);
readkey;
END.

[Levsha100]

1)

for i:=1 to 7 do
  S:=S*A[i];

2) Не успел))

[ponchikpk]

в 1 задачке надо S еще присвоить с самого начала 1 иначе произведение всегда 0 будет

[Стасссс]

Спасибо мужики я не знаю чтоб я без вас делал

[А.Вера]

Помогите, пожалуйста...
Как можно поменять в массиве два числа..... вот например:
дан массив из 10 вещественных чисел. Нужно поменять местами max элемент и элемент с номером m.

[Google2010]

max:=a[1];im:=1;
for i:=2 to 10 do;
if a[i]>max then begin max:=a[i];im:=i;end;
tmp:=a[im];
a[im]:=a[m];
a[m]:=tmp;

[Google2010]

...............

[А.Вера]

А что это за переменная tmp???? Что это???

[А.Вера]

Все, можно не отвечать....я поняла)))
Спасибо!!! =))