Помогите в Паскале изменить текст программы так, чтобы выводила не только индекс элемента, но и его значение

var a:array[1 ... 10]of integer;

i, k, n:integer;

begin

n:=0;

k:=0;

Writeln ('Исходный массив:') ;

Randomize;

for i:=1 to 10 do

begin

a[i]:=Random (51) - 25;

Write (a[i],' ') ;

end;

Writeln;

for i:=10 downto 1 do

if a[i]>0 then

begin

k:=k+1;

if k=2 then n:=i;

end;

if k=0 then Writeln ('В массиве нет положительных элементов!') else

Writeln ('Номер предпоследнего положительного элемента:', n) ;

Readln;

end

Question

Информатика

Нинуня

8 мая, 01:16

Помогите в Паскале изменить текст программы так, чтобы выводила не только индекс элемента, но и его значение

var a:array[1 ... 10]of integer;

i, k, n:integer;

begin

n:=0;

k:=0;

Writeln ('Исходный массив:') ;

Randomize;

for i:=1 to 10 do

begin

a[i]:=Random (51) - 25;

Write (a[i],' ') ;

end;

Writeln;

for i:=10 downto 1 do

if a[i]>0 then

begin

k:=k+1;

if k=2 then n:=i;

end;

if k=0 then Writeln ('В массиве нет положительных элементов!') else

Writeln ('Номер предпоследнего положительного элемента:', n) ;

Readln;

end

+3

Ответы (1)

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

Тимоша · Answer 1

Var

a: array[1 ... 10]of integer;

i, k, n: integer;

begin

Writeln ('Исходный массив:') ;

Randomize;

for i : = 1 to 10 do

begin

a[i] : = Random (51) - 25;

Write (a[i], ' ') ;

end;

Writeln;

n : = 0;

k : = 0;

for i : = 10 downto 1 do

if a[i] > 0 then

begin

k : = k + 1;

if k = 2 then n : = i;

end;

if k = 0 then

Writeln ('В массиве нет положительных элементов!')

else

Writeln ('Предпоследний положительный элемент: a[', n, '] = ', a[n]) ;

Readln;

end.