Ответы смотри в приложенном файле.
Var
A:array[1..50] of integer;
i,S:integer;
Begin
For i:= 1 to 50 do
Begin
A[i]:=1;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('S = ',S);
End.
1.
Program prim1;
Var x:integer;
Begin
x:= какое число или присваивания оператором readln(x)
if x>0 then x+1
writeln ('Полученное число :,x');
end.
Вроде так
Целые положительные представляются в компьютере в формате с фиксированной запятой.
Отрицательные с помощью дополнительного кода.
Ответ: только что был этот вопрос: сделал такую же программу
program Test;
var
n, a, i, nmin, amin: Integer;
begin
Write ('Количество чисел: ');
ReadLn (n);
nmin := 1;
amin := MaxInt;
WriteLn ('Введите ', n, ' чисел:');
for i := 1 to n do begin
ReadLn (a);
if a < amin then begin
amin := a;
nmin := i;
end;
end;
WriteLn ('Вывод: ', amin, ' ', nmin);
ReadLn;
end.