uses crt;
var a:array[1..99] of real;
i,j,n:integer;
max:real;
begin
write('Введите n: ');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(99-(-99)+1)-99;
write(a[i]:5);
end;
writeln;
max:=-5;
for i:=1 to n do begin
if abs(a[i])>max then begin max:=abs(a[i]);j:=i; end;
end;
writeln('Максимальное по модулю число равно ',a[j]);
end.
Здесь элементы массива - случайные числа от -99 до 99. В ответе выписывается само число, а не его модуль. Если нужен именно модуль, то меняем предпоследнюю строку на writeln('Максимальное по модулю число равно ',max);
const
N = 12;
var
a: array[1..N] of integer;
c, d, k, count, sum, i: integer;
begin
writeln('Введите промежуток: '); readln(c, d);
writeln('Введите k: '); readln(k);
for i := 1 to N do begin
a[i] := random(30);
write(a[i], ' ');
if(a[i] > 0) and (a[i] mod k = 0) then inc(count);
end;
for i := c to d do begin
sum := sum + a[i];
end;
writeln;
writeln('Сумма элементов на промежутке [', c,';', d,'] : ', sum);
if(count <> 0) then writeln('Положительных элементов кратных ', k, ' : ', count);
end.
