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.
Program n1;
var a: real;
begin
write('введите скорость в км/ч: ');
readln(a);
write('эта скорость в м/с: ',a*5/18);
end.
Листинг программы и скиншот работы в приложениях.
Написано на PascalABC.NET но должно работать во всех Паскалях.
CLS
INPUT "a=", a
INPUT "b=", b
IF a = 0 THEN
IF b = 0 THEN
PRINT "Resheniy beskonechno"
ELSE
PRINT "Resheniy net"
END IF
ELSE
PRINT "x="; b / a
END IF
END