Цитата:
Сообщение от matrinishna
Array19. Дан целочисленный массив A размера 10. Вывести порядковый номер последнего из тех его элементов Aк, которые удовлетворяют двойному неравенству A1 < AK < A10. Если таких элементов нет, то вывести 0.
|
Тут нужно рассматривать разные случаи, к примеру, если главное условие выполняется, не выполняется и невозможно.
Листинг следующий:
Код:
program mass;
var a: array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
readln(a[i]);
k:=0;
if a[1]<a[10]
then
begin for i:=2 to 9 do
if (a[i]>a[1]) and a[i]<a[10] then k:=i;
writeln(k);
end
else writeln('неравенство не соблюдено, первый элемент не меньше десятого');
readln
end.