Задание студенту

[rump]

Здравствуйте! Я неумею складывать даже элементарные программы в Паскале, а нам в универе задали контрольную работу. Я уже ранее обращялся тут на форуме, но никто так и не смог решить эти задачи. В очередной раз ищу неравнодушных людей! Вот задачи:
1.Найти минимальный член массива В[1..9], сумму элементов, значение которых меньше 8

2. Найти произведение положительных членов массива A[1..10, 1..8]

Заранее спасибо!

[DM_bite]

2

program Xd;
var a:array [1..10,1..8] of integer;
    i,pr,j: integer;
    begin
    pr:= 1;
    for i:= 1 to 10 do
    begin
     for j:= 1 to 8 do
      begin
      ReadLn(a[i,j]);
      if a[i,j]>0 then pr:= pr*a[i,j];
      end;
      end;
      WriteLn(pr);
      end;

1

program Xd;
var a:array [1..9] of integer;
    i,min,sum: integer;
    begin
    min:= 1;
    sum:= 0;
    for i:= 1 to 9 do
      begin
      ReadLn(a[i]);
      if a[i]<8 then sum:= sum+a[i];
      if a[i]<min then min:= a[i];
      end;
      WriteLN('Minimum =',min);
      WriteLn('Summa =',sum);
      end;