Помогите в Паскале изменить текст программы так, чтобы выводила не только индекс элемента, но и его значение var a:array[1..10]of integer; i,k,n:integer; begin n:=0; k:=0; Writeln('Исходный массив:'); Randomize; for i:=1 to 10 ...
Помогите в Паскале изменить текст программы так, чтобы выводила не только индекс элемента, но и его значение
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
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы