Решаем задачи Абрамян на Паскале. 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.

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

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