Помогите написать программу

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

Question

Информатика

Марьина

15 марта, 05:30

Помогите написать программу

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

+5

Ответы (1)

Знаете ответ на вопрос?

Савин · 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.

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

Помогите написать программу

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