Помогите пожалуйста!! надо написать программу на паскале, нужно найти номер первого положительного элемента в массиве. очень нужно

1

Ответы и объяснения

  • Nr6
  • умный
2014-02-10T04:43:39+00:00
const    n=10;
var
a:array[1..100] of integer;
i,m:longint;
t:boolean;
begin
for i:=1 to n do
      begin       write('a[',i,']: ');
      readln(a[i]);
      end;
t:=true;
for i:=1 to n do
if (a[i]>0) and (t=true) then
begin
m:=a[i];
q:=false;
end;
writeln('1 положительный элемент: ',m);    
readln;
end.