Паскаль

[Мария Ремизова]

Задан целочисленный одномерный массив a из n элементов. Найти номер первого минимального элемента среди положительных элементов, расположенных до первого элемента, кратного пяти.

program misha;
var a:array [1..100] of integer;
i,n:integer;
p1:boolean;
begin
writeln('vvedite razmernost massiva')
readln(n);
writeln ('vvedite',n,'elementov massiva');
for i:=1 to n do
readln (a [i]);
p1:=false;
for i:=1 to n do
if(a[i]>0) then
p1:=true;
p2:=false;
for i: 1 to n do
if (a[i] mod=5

Нужно закончить программу) Если честно, в информатике я полный профан. Знающие люди! Я надеюсь на Вашу помощь!

[Poma][a]

Машенька, не издевайтесь над нашими глазами, ФОРМАТИРУЙТЕ КОД (с помощью #).

var
   n, min, i : Integer;
   a : array [1..10000] of Integer;

begin
     ReadLn (n);

     for i := n to n do
         ReadLn (a[i]);

     min := 32767;
     for i := 1 to n do begin

         if a[i] mod 5 = 0 then
            Break;
         if (a[i] < min) and (a[i] > 0) then
            min := a[i];
     end;

     WriteLn (min);
end.

[TinMan]

Ромаха, читай внимателеьнее - нужен не сам минимум:

Сообщение от Мария Ремизова

Найти номер первого минимального элемента среди

[Leshii]

Воть )

Uses crt;
var
  A: array [1..100] of integer;
  i, n, m: integer;
begin
clrscr;
Write('Vvedite razmernost:');readln(n);
for i:=1 to n do begin
    write('A[',i,']=');
    readln(a[i]);
end;
writeln('Dl9 prodolgeniya nagmite Enter ... ');
readkey;
clrscr;
writeln('Isxodnuy massiv');
for i:=1 to n do begin
    write('A[',i,']=',a[i],' ');
end;
writeln;
m:=1;
for i:=2 to n do begin
 if a[i] mod 5 = 0 then begin break;
  if (a[i]>0) and (a[m]>=a[i]) then m:=i;
end;
writeln('#',m);
readln;
end.

[Hacker19_90]

m:=1;
for i:=2 to n do begin
 if a[i] mod 5 = 0 then begin break;
  if (a[i]>0) and (a[m]>=a[i]) then m:=i;
end;

Не, неправильно!

[Poma][a]

Сообщение от TinMan

Ромаха, читай внимателеьнее - нужен не сам минимум:

сори, косякнул....

[Leshii]

Таки чуток перепутал =)

min := -1;
  for i := 1 to n do
    if (a[i] <> 0) and (a[i] mod 5 = 0) then break
    else
    if (a[i] >= 0) then
        if (min = -1) then min := a[i] else
        if a[i] < min then min := a[i];
  if min = -1 then writeln('Поиск не дал результатов...') else writeln(min);
  Readln;
end.

Ну а номер ( вывести я думаю будет не проблема )