Ответ:
var
i, k: integer;
a: array [1..10] of integer;
begin
writeln('Введите 10 элементов: ');
for k := 1 to 10 do readln(a[k]);
for k := 1 to 10 do
if (a[k] > a[1]) and (a[k] < a[10]) then i := k;
writeln('Порядковый номер последнего из элементов, удовлетворяющих А1<Ak<A10: ', i)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var
i, k: integer;
a: array [1..10] of integer;
begin
writeln('Введите 10 элементов: ');
for k := 1 to 10 do readln(a[k]);
for k := 1 to 10 do
if (a[k] > a[1]) and (a[k] < a[10]) then i := k;
writeln('Порядковый номер последнего из элементов, удовлетворяющих А1<Ak<A10: ', i)
end.