Const
N = 8;
var
a: array[1..N] of integer;
p: integer;
i: byte;
begin
writeln('Введите массив из ', N, ' элементов');
i := 0;
p := 1;
while i < n do
begin
i := i + 1;
read(a[i]);
if a[i] <> 0 then p := p * a[i];
end;
writeln('Отредактированный массив');
i := 0;
repeat
i := i + 1;
if a[i] < 0 then a[i] := p;
write(a[i], ' ');
until i >= n;
end.
Хорошая задача . я подумаю и скажу тебе ответ .
var a,b:real;
begin
write("Vvedite chisla: ");
read(a,b);
write("Bolshee chislo: ");
if a>b then write(a) else write(b);
readln
end.