1) номер максимального по модулю элемента массива
2) сумму элементов массива, расположенных после первого положительного элемента.
Преобразовать массив таким образом, чтобы сначала располагались все элементы. Целая часть которых лежит в интервале [a,b], а потом – всё остальные.
program l4;
var
n:array [1..10] of real;
i:integer;
max,fp,nm,sp:real;
begin
randomize;
for i:=1 to 10 do
n:=random(20)
max:=n[1];
fp:=n[1];
for i:=1 to 10 do
begin
if mod(n)>max then begin max:=n; nm:=i; end;
if (n>0) and (n<fp) then fp:=n;
end;
for i:=1 to 10 do
if n>fp then sp:=sp+n;
Writeln('Max=',max:2:2);
WriteLn('Summa Posle 1st polojitelnogo=',sp:2:2);
end.
Заранее спасибо за помощ!!
--------------------------------------------------------------------------------
Добавленное сообщение
--------------------------------------------------------------------------------
прошу удалить тему, я разобрался
