Question

1)Дан массив из 10 элементов, вывести их на экран и выяснить, какой из элементов k или s является большим (k, s <11 и задаются с клавиатуры)

Answer 1

var

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

  i, k, s : integer;

begin

  randomize;

  for i := 1 to 10 do a[i] := trunc (random (100));

  for i : 1 to 10 do write (a[i], ' ');

  writeln;

  read (k, s);

  if a[k] > a[s] then write ('a[k] > a[s]')

  else if a[k] = a[s] then write ('a[k] = a[s]')

  else write ('a[k] < a[s]');

end.