var a,b,x: real;
begin
writeln('Введите коэффициенты линейного уравнения ax=b');
readln(a,b);
if (a=0) and (b=0) then writeln('Решений бесконечно много')
else
if (a=0) and (b<>0) then writeln('Решений нет')
else
if a<>0 then
begin
x:=b/a;
writeln('Корень уравнения: ',x)
end
end.
Ну если все в паскале то там должна быть примерно такая прога
номер 4
begin
repeat
a>0
until
a=abs(a)
end
попробуй так
11
begin
if a<0 then
write ('a');
else
end
А вот с последнимм попробуй аналоичное действе сделать
Const N=10;
var a: array [0..N] of integer;
i, m: integer;
begin
for i := 0 to N do
a[i] := random(1000) - 500; { Надо же что-то в массив закинуть =) }
for i := 0 to N do
if ((a[i] > 0) and (a[i] > a[m])) then
m := i;
writeln('[', m, '] => ', a[m]);
<span>end.</span>
// PascalABC.NET
var
a: integer;
begin
readln(a);
a := a mod 10;
writeln(a);
end.
<span>1888-1890 Табулятор Холлерита, первое автоматическое вычислительное устройство
</span><span />