Если точно по блок-схеме, то так:
Var A:integer;
Begin
Write('Введите число: ');ReadLn(A);
A:=A+1;
if A<0 then A:=Abs(A);
WriteLn(A);
End.
Но можно и проще:
Var
A:integer;
Begin
Write('Введите число: ');ReadLn(A);
A:=Abs(A+1);
Write(A)
End.
Вариант 2. числа в правой таблице результат умножения чисел в левой таблице
BIOS это-такая штука которая управляет компом,несовотую лазить там не професионалам а то компу будет копец.
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var imin:=a.IndexMin;
Writeln('Номер минимального элемента: ',imin+1,
', значение: ',a[imin])
end.
<u>Пример</u>
n= 17
-20 -14 27 33 -34 -25 -47 33 -46 -5 -36 -3 30 -27 -45 46 41
Номер минимального элемента: 7, значение: -47
Program q;
uses crt;
var a : integer;
begin
for a:=1 to 5 do
begin
write('Имя ');
end;
end.
