ПОМОГИТЕ С ИНФОРМАТИКОЙ!!!ОЧЕНЬ Необходимо. Составьте программку: Дана таблица вещ таб B[1:7].

Итак. Если нужно составить программку, то под таблицей предполагается массив?А также данный массив каким образом вводятся числа? с клавиатуры?

да

1-ая часть

Program n_1;

var i:integer; B: array[1..7] of real;

begin

   for i:=1 to 7 do begin

       read(B[i]);

       if B[i]lt;0 then B[i]:=0;

   end;

   for i:=1 to 7 do write(B[i]:0:5, ' ');

end.

2-ая часть

Program n_2;

var i:integer; a:real; C: array[1..10] of real;

begin

   for i:=1 to 10 do begin

       read(C[i]);

   end;

   a:=C[1];

   for i:=1 to 10 do if (C[i]gt;a) then a:=C[i];

   writeln(a:0:10);

end.