Решить задачи с массивами.

[АНИЯ...]

Я совершенно ничего не понимаю В Паскале .И решила к вам обратиться за помощью .Решите мне пожалуйста 2 задачиБуду очень благодарна
1 задача.одномерные массивы
дан миссив Р={8;0;-4.2;-1;0;2;5;-8;3.5}Подсчитать количество положительных элементов.Оставшиеся числа вывести на печать в одну строку.
2 задача двухмерные массивы
в матрицк Т(4х4)определить в каждом столбце произведение отрицательных элементов.
И нарисовать блок -схемы

[GreenWizard]

Оставшиеся числа вывести на печать в одну строку.

это вот не ясно
вот код 1й:

const
  MaxN = 10;

var
  P: array[1..MaxN] of Double;
  Count, i, Positive: Integer;
begin
  repeat
    write('Elementov v massive: ');
    Readln(Count);
  until (Count > 0) and (Count <= MaxN);

  for i := 1 to Count do
    begin
      Write('Element #', i, ' = ');
      Readln(P[i]);
    end;

  Positive := 0;
  for i := 1 to Count do
    if P[i] > 0 then
      Positive := Positive + 1;

  Writeln('Polojitel''nux elementov: ', Positive);
  Readln;
end.

[123_]

var
  a: array [1 .. 9] of real;
  i, count: integer;

begin
  count := 0;
  a[1] := 8;
  a[2] := 0;
  a[3] := -4.2;
  a[4] := -1;
  a[5] := 0;
  a[6] := 2;
  a[7] := 5;
  a[8] := -8;
  a[9] := 3.5;
  for i := 1 to 9 do
    if a[i] >= 0 then
      inc(count);
  writeln('Kol-vo polozhiteln el-tov = ' + inttostr(count));
  writeln('Ostavshisya massiv:');
  for i := 1 to 9 do
    if a[i] < 0 then
      write(a[i]:3:3, '.');
  readln;

end.

[Hacker19_90]

вставлю свои пять копеек!

#1

program example;
uses
  crt;
const
  a: array[1..9] of real = (8.0, 0.0, -4.2, -1.0, 0.0, 2.0, 5.0, -8.0, 3.5);
var
  i: byte;
  count: integer;
begin
  clrscr;
  count := 0;
  WriteLn ('Ваш массив:');
  for i := 1 to 9 do
  begin
    Write (a[i]:4:3);
    if a[i] > 0 then Inc (count);
  end;
  WriteLn;
  WriteLn ('положительных ', count);
  WriteLn ('Отрицательные и ноль:');
  for i := 1 to 9 do
    if a[i] < 0 then Write (a[i]:4:3);
  WriteLn;
  ReadKey;
end.

[GreenWizard]

второе

var
  T: array[1..4, 1..4] of Double;
  Mul: Double;
  i, j: Integer;
begin
  for i := 1 to 4 do
    for j := 1 to 4 do
      begin
        Write('T[', i, ', ', j, '] = ');
        Readln(T[i, j]);
      end;

  Writeln;

  for i := 1 to 4 do
    begin
      for j := 1 to 4 do
        Write(T[i, j]:3:3, #9);
      Writeln;
    end;
  Writeln;

  for j := 1 to 4 do
    begin
      Mul := 1;
      for i := 1 to 4 do
        if T[i, j] < 0 then
          Mul := Mul * T[i, j];

      Writeln('Proizvedenie v ctolbce ', j, ' = ', Mul:3:3);
    end;

  Readln;
end.

Николай, тормозим=)
а вот с блок-схемами, прости, не помогу.. тут уже мало иметь имя, как у моей бывшей, Аня =)