Дан массив размера N и целые числа К и L (1

var N, K, L, i: integer;

sr: real;

A: array [1..100] of integer;

begin

Write('Введите N: '); ReadLn(N);

for i := 1 to N do

begin

Write('A[', i, ']=');

ReadLn(A[i]);

end;

Wri...