<span>Произведения художественной литературы,<span> информация в учебнике. Больше я не знаю.</span></span>
Z будет 0, так как там в условии while если i больше 1 то проделать нужно операцию снизу. но i = 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.
Я СЧИТАЮ ЧТО ПРАВИЛЬНЫЙ ОТВЕТ A) КОПИРОВАНИЕ,ВСТАВКИ И УДАЛЕНИЕ ФРАГМЕНТОВ ТЕКСТА