Дан целочисленный массив А размера 10. вывести порядковый номер последнего из тех его элементов Ак,которые удовлетворяют двойному неравенству А1 меньше Ak меньше A10. Если таких элементов нет то вывести 0
Дан целочисленный массив А размера 10. вывести порядковый номер последнего из тех его элементов Ак,которые удовлетворяют двойному неравенству А1
Гость
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы