Pascal: min среди положительных элементов последовательности

[b345t]

Написать программу на Pascal:

Вводится последовательность из n элементов (n макс = 100)
Найти минимум среди положительных элементов последовательности.

правильно?

Заполняешь массив, A[i]
var b;
i:=0;
repeat
  b:=A[i];
  i:=i+1;
until b>0;
for i:=1 to (n-1) do
begin
  if (A[i]>0) and (A[i]<b) begin b:=A[i]; end;
end;
writeln b;

[anGeee]

Так правильней:

var b : word;
k := 0;
repeat
  k := k + 1;
until A[k] > 0;
b := A[k]; 
for i:=k+1 to (n-1) do
begin
  if (A[i]>0) and (A[i]<b) begin b:=A[i]; end;
end;
writeln(b);

[b345t]

тоесть так?

Program af;
uses crt;
var A:array[1..100] of integer;
b,k,i,n,:real;
begin
k := 0;
repeat
  k := k + 1;
until A[k] > 0;
b := A[k]; 
for i:=k+1 to (n-1) do
begin
  if (A[i]>0) and (A[i]<b) begin b:=A[i]; end;
end;
writeln(b);
end.

[anGeee]

Ага, только в слове "programm" одна буква 'm', вы не объявили переменные k,i,n, и не написали ввод массива. Вы вообще программу в эту набирали где-нибудь ?

[b345t]

она не работает

[anGeee]

Да что же вы никак не хотите добавить ввод :

write('Input length of the array : ');
readln(n);
writeln('Input ',n,' elements :');
for i := 1 to n do
  read(a[i]);

И ещё у вас в условии вместо a[i] > 0 написано a[i]...
И всё там же у вас конструкция If ... do, а надо If ... then

[b345t]

program sdgfdfg;
uses crt;
var A:array[1..100] of integer;
b,i,n,k:integer;
begin   clrscr;
k:=0;
repeat
k:=k+1;
until a[k]>0;
b:=A[k];
writeln('введите число элементов');
readln(n);
writeln('введите ',n ,' eлементов');
for i:=1 to n  do readln(a[i]);
begin
If (a[i]>0) and (a[i]<b) then begin b:=a[i] end; end;
writeln(b);
readkey;
end.