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

[АНИЯ...]

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

[АНИЯ...]

Пожалуйста! жду жду жду!)

[antishoker]

1) Одномерные массивы

var i : integer;
   sum: real;
   p,c: array [1..9] of real;
begin
  p[1]: 8;
  p[2]: 0;
  p[3]: -4.2;
  p[4]: -1;
  p[5]: 0;
  p[6]: 2;
  p[7]: 5;
  p[8]: -8;
  p[9]: 3.5;
  sum:=0;
  for i:=1 to 9 do
    if p[i]>0 then
      sum:=sum+p[i];
  writeln ('Сумма положительных элементов массива P: ',sum:3:1);
  for i:=1 to 9 do
    if p[i]<=0 then
      c[i]:=p[i];
  for i:=1 to 9 do
    write ('Оставшиеся элементы массива: ',c[i]:3:1,' ');
  readln;
end.

Вроде так, на всякий случай проверьте. Схему рисовать не буду, от своих уже тошнит =)

Вторую не осилю, спать хочется, время ужо под утро.

[BDA]

antishoker, видно вам очень спать хочется
Посчитали сумму положительных вместо количества, вывели массив, в котором вместо положительных будут нули (т.е. лишние числа)
1-я:

uses
  crt;

var
  i, j: integer;
  p: array [1..9] of real;

begin
  p[1] := 8;
  p[2] := 0;
  p[3] := -4.2;
  p[4] := -1;
  p[5] := 0;
  p[6] := 2;
  p[7] := 5;
  p[8] := -8;
  p[9] := 3.5;
  j := 1;
  for i := 1 to 9 do
  begin
    p[j] := p[i];
    if (p[j]<=0) then
      inc(j);
  end;
  if (p[j]>0) then
      dec(j);
  writeln('Count of positive: ', 9 - j);
  write('Other elements:');
  for i := 1 to j do
    write(p[i]:5:1);
  readln;
end.

2-я:

uses
  crt;

var
  i, j: integer;
  p: array [1..4, 1..4] of real;
  s: real;

begin
  randomize;
  for i := 1 to 4 do
    for j := 1 to 4 do
      p[i, j] := random * (random(11) - 5);
  
  writeln('Matrix');
  for i := 1 to 4 do
  begin
    for j := 1 to 4 do
      write(p[i, j]:5:3, ' ');
    writeln;
  end;
  
  for j := 1 to 4 do
  begin
    s := 0;
    for i := 1 to 4 do
      if p[i, j] < 0 then
        if s = 0 then
          s := p[i, j]
        else
          s := s * p[i, j];
    if s <> 0 then
      writeln(j, ' column: ', s:0:3)
    else
      writeln(j, ' column have not negative numbres');
  end;
  
  readln;
end.

[netrino]

Да зачем же так сложно?..

begin
  WriteLn ('4');
  WriteLn ('0; -4.2; -1; 0; -8');
end.

АНИЯ..., и ещё к прочтению: http://programmersforum.ru/announcement.php?f=7
Особенно выделенную часть, где про халяву.

[antishoker]

Хе-хе =) Насчет суммы это да, просто не внимательно прочитал. А вот числа выводятся те, помоему.

p[i]<=0

В массив войдут числа меньше или равные нулю, не?

[antishoker]

BDA, А, все, вижу. Вы правы =)

[BDA]

Войдут-то войдут, но распечатать нужно оставшиеся, а у вас все равно 9 чисел будет печататься.

УПД Пока печатал, разобрались