Дан целочисленный массив. Вывести порядковый номер последнего из тех его элементов, которые удовлетворяют двойному неравенству

@андрей171993 · Регистрация: 24.05.2012

Студворк — интернет-сервис помощи студентам

1.Дан целочисленный массив А размера 10. Вывести порядковый номер последнего из тех его элементов АК, которые удовлетворяют двойному неравенству А(1) < А(К) < А(10). Если таких элементов нет, то вывести 0.

@klast · 31.05.2012, 18:09

Сообщение от андрей171993

1.Дан целочисленный массив А размера 10. Вывести порядковый номер последнего из тех его элементов АК, которые удовлетворяют двойному неравенству А(1) < А(К) < А(10). Если таких элементов нет, то вывести 0.

Pascal

var
  a: array[1..10] of integer;
  i, k: integer;
 
begin
  write('A =');
  for i := 1 to 10 do
  begin
    a[i] := random(10);
    write(a[i]:2);
  end;
  for i := 1 to 10 do
    if (a[1] < a[i]) and (a[i] < a[10]) then k := i;
  writeln;
  writeln('i = ', k);
end.

@андрей171993 · 21.06.2012, 12:36 **[ТС]**

спасибо большое)

Добавлено через 41 секунду
а как блок-схему к нему сделать??

@андрей171993 0 / 0 / 0 Регистрация: 24.05.2012 Сообщений: 10
		1
	Дан целочисленный массив. Вывести порядковый номер последнего из тех его элементов, которые удовлетворяют двойному неравенству 30.05.2012, 17:53. Показов 10051. Ответов 2 Метки нет (Все метки) 1.Дан целочисленный массив А размера 10. Вывести порядковый номер последнего из тех его элементов АК, которые удовлетворяют двойному неравенству А(1) < А(К) < А(10). Если таких элементов нет, то вывести 0. 0

@андрей171993 0 / 0 / 0 Регистрация: 24.05.2012 Сообщений: 10
	21.06.2012, 12:36 [ТС]	3
	спасибо большое) Добавлено через 41 секунду а как блок-схему к нему сделать?? 0

Опции темы

Дан целочисленный массив. Вывести порядковый номер последнего из тех его элементов, которые удовлетворяют двойному неравенству

Решение