Программа со статическим массивом:
Var
M: array[1..32767] of real;
Min: real;
N, i: integer;
Begin
Write('N = ');ReadLn(N);
if (N <= 0) then
WriteLn('Количество элементов должно быть положительно')
else
begin
Write('Введите элементы массива в количестве ',N,' штук');
For i:= 1 to N do
Read(M[i]);
Min := M[1];
For i:= 2 to N do
if (M[i] < Min) then
Min := M[i];
WriteLn;
Write('Получившийся массив:');
For i:= 1 to N do
begin
M[i] := M[i] / Min;
Write(' ',M[i]);
end;
end
End.
Смотри вложение
..............................
1)
var x:integer;
begin
readln(x);
writeln(x+1);
end.
2)
var n,i,f:integer;
begin
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
writeln(f);
end.
1).Числовая информация представлена в Десятичной системе счисления или другими словами (позиционной). Сейчас говорят в Десятичной.
2)В символической используется позиционная двоичная.
3)В графической всегда восьмеричная система счисления.
4)Для звука будет двоичная система счисления.
5)А для видео Шестнадцатиричная система счисления!
У меня получился ответ 9!