Решаем задачи Абрамян на Паскале. Array18

Array18. Дан массив $A$ ненулевых целых чисел размера $10$ . Вывести значение первого из тех его элементов $A_K$ , которые удовлетворяют неравенству $A_K \lt A_{10}$ . Если таких элементов нет, то вывести $0$ .

Решение:

program Array18;

var

a:array[1..10] of integer;

k:Integer;

begin

for k:=1 to 10 do

begin

write(k,' :');

readln(a[k]);

end;

k:=1;

While (A[k]>=A[10]) and(k<10) do inc(k);

if k=10 then writeln ('0')

else Writeln (a[k]);

end.

Другие задачи из раздела Array можно посмотреть здесь.

Комментарии 2

olegst1975

08.03.2016 в 15:11

строку 14:

While (A[k]>=A[10]) and(k<10) do inc(k);

1

While (A[k]>=A[10]) and(k<10) do inc(k);

иначе k выходит на пределы допустимого интервала индексов (1<=k<=10)

Ответить
Anton

09.03.2016 в 09:06

Да действительно, поправил:
Было:

While (A[k]>=A[10]) or (k=10) do inc(k);

1

While (A[k]>=A[10]) or (k=10) do inc(k);

Стало:

While (A[k]>=A[10]) and(k<10) do inc(k);

1

While (A[k]>=A[10]) and(k<10) do inc(k);

Ответить

Решаем задачи Абрамян на Паскале. Array18

Комментарии:

Комментарии 2

Добавить комментарий Отменить ответ