Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.