Question

Помогите написать программу
Паскаль: Организуйте массив. Выведите на дисплей значение и индекс второго положительного элемента.

Answer 1

program polog;
var
i:byte;
a:array[1..255] of single;
prox:boolean;
begin
randomize;
prox:= true;
for i:=1 to 255 do a[i]:=random(254)-127;
for i:=1 to 255 do if a[i]>0 then if prox then prox:=false
else begin writeln(a[i],i); exit(или close не помню); end;
end.

Answer 2

мне написали эту программу несколько проще, но она выводит и отрицательные числа

Answer 3

1. Uses Crt;
Var
A:Array [1..10] Of Integer;
I:Integer;
Begin
For I:=1 To 10 Do
Begin
Writeln('Введите элементы массива A[',I,']');
Readln(A[I]);
End;
Writeln();
Writeln('A[2] - Индекс массива; ', A[2], ' - Значение массива');
End.