Паскаль. задачи на массивы

[нюшка-ватрушка]

Ребят, очень нужна помощь!есть задание на массив в дельфи
имя массива x(N)
вычислить сумму и количество элементов массива х. Условие x(i)>0, N< или равно 30

мне нужна блок схема, текст программы. в дельфи тоже осуществить, но это потом.

[[CODER]]

кол-во эл. равно Н

readln(n);
for i:=1 to n do
    readln(mas[i]);
sum:=0;
for i:=1 to n do
    sum:=sum+mas[i];
write(n);
write(sum);

[Hacker19_90]

Сумму и количество положительных? Тогда

kol:= 0;
Sum := 0;
for i := 1 to n do
begin
     if x[i] > 0 then begin
          Inc(kol);
          Inc(sum, x[i]);
          end;
end;

[Яночка)]

Люди помогите пожалуйста.
1)вставить нулевую строку и столбец перед строкой и после столбца,в котором встретился элемент,равный сумме своих индексов.Если такого нет, вывести об этом сообщение.
2)удалить все столбцы, в которых находится минимальный элемент,а затем строки, в которых больше одного максимального элемента.Если такого нет, вывести об этом сообщение.

[нюшка-ватрушка]

Сообщение от [CODER]

кол-во эл. равно Н

readln(n);
for i:=1 to n do
    readln(mas[i]);
sum:=0;
for i:=1 to n do
    sum:=sum+mas[i];
write(n);
write(sum);

что значит "кол-во эл. равно Н"
я просто не понимаю совсем, так что....это текст программы для моей задачи подходит или нет? а 30 куда?

[[CODER]]

Подходит или нет я не знаю, это зависит от того что вы подразумеваете под

Условие x(i)>0

Скорее всего так

program Project1;
uses
  SysUtils;
   {$APPTYPE CONSOLE}
var
 x:array[1..30]of integer;
 sum, kol, i, n  :integer;
begin
    kol:=0;
     sum:=0;
    write('Enter n (1..30) ');
      readln(n);
   for i:=1 to n do
    readln(x[i]);
     for i := 1 to n do
begin
     if x[i] > 0 then begin
          Inc(kol);
          Inc(sum, x[i]);
          end;
end;
write('length = ',kol,' sum ',sum);
readln;
end.

Но не исключено и

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
 var
 mas:array[1..30]of integer;
 i, n, sum:integer;
begin
  write('Enter n (1..30) ');
      readln(n);
for i:=1 to n do
    readln(mas[i]);
sum:=0;
for i:=1 to n do
    sum:=sum+mas[i];
write('length = ',n,' sum ',sum);
readln;
end.

[ROMA2PVT]

Да.Так.Но количество элементов то

N< или равно 30

Program mas;
uses crt;
var
a,b:array[1..100]of integer;
i,n,min,kol,sum,j:integer;
begin
begin
clrscr;
repeat
write('Введите количество элементов n=');
read(n);
until(n<30) or (n=30);
randomize;
writeln('Исходный массив: ');
for i:=1 to n do
 begin
  a[i]:=random(10);
write(a[i],'  ');
end;
sum:=0;
kol:= 0;
for i:=1 to n do
    if (a[i]>0) then
    begin
    Inc(kol);
    sum:=sum+a[i];
  end;
    writeln;
    writeln(sum,' ',kol);
    end;
end.

[Stilet]

Одна тема - один автор.
Закрыто.