Question

Дан массив целых чисел.Выяснить:какой элемент массива больше,k-й или p-й

Answer 1

const N=10

var a:array[1..n] of integer;

k,i,p:integer;

begin

for i:=1 to n do begin

a[i]:=random(101);

write(a[i]:3);

end;

writeln;

write('Введите k,p');

read(k,p);

writeln;

if a[p]>a[k] then write(a[p]) else write (a[k]);

end.