Помогите написать программу Паскаль: Организуйте массив. Выведите на дисплей значение и индекс второго положительного элемента.
Помогите написать программу
Паскаль: Организуйте массив. Выведите на дисплей значение и индекс второго положительного элемента.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы