Дан целочисленный массив А размера 10. Вывести номер первого и последнего из тех его элементов А[i]

04.11.2010, 10:21. **Показов** 3948. **Ответов** 1

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

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

@pryda · 04.11.2010, 15:55

Pascal

var a:array[1..10]of integer;
    i,k:integer;
begin
k:=0;
randomize;
for i:=1 to 10 do
a[i]:=random(20)-10;
for i:=2 to 9 do
if (a[1]<a[i])and(a[i]<a[10]) then
begin
    writeln(a[i]);
    inc(k);
end;
if k=0 then writeln(0);
end.

TomFisher
		1
	Дан целочисленный массив А размера 10. Вывести номер первого и последнего из тех его элементов А[i] 04.11.2010, 10:21. Показов 3948. Ответов 1 Метки нет (Все метки) Дан целочисленный массив А размера 10. Вывести номер первого и последнего из тех его элементов А[i], которые удовлетворяют двойному неравенству: A[1] <A [i] <A [10]. Если таких элементов нет, то вывести 0.

Опции темы

Дан целочисленный массив А размера 10. Вывести номер первого и последнего из тех его элементов А[i]

Решение