ТутРешу.Ру

1) Дан массив из 10 элементов, вывести их на экран и выяснить…

Задание:

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.




Знаете другой ответ?

Отправить свой ответ