Задание:
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.
Знаете другой ответ?