Неверный ответ 1102, так как двочная система состоит из чисел 1 и 0
PascalABC.NET
type mass = array [1..4] of integer;
var a : mass;
i : integer;
function min(c : mass) : integer;
var
i,minim : integer;
begin
minim := c[1];
for i := 2 to 4 do
if c[i] < minim then
minim := c[i];
result := minim;
end;
begin
for i := 1 to 4 do
readln (a[i]);
writeln ('min = ',min(a));<span>
end.
Как параметр я использовал массив из четырех элементов. Можно использовать просто переменные и через IF все прописать</span>
Var B: array [1..12] of integer; i, s, s_min: integer;
begin
writeln;
randomize;
s := 0;
s_min := 0;
for i := 1 to 12 do
B[i] := random(65) - 5;
for i := 1 to 12 do
begin
write(B[i], ' ');
s := s + B[i];
if B[i] < 7
then
s_min := s_min + 1;
end;
writeln();
writeln('Sum: ', s, ', amount of elemnts which lower than 7: ', s_min);
<span>end.</span>
Носитель информации - это тот объект, который информацию может хранить и передавать. В системе "человек - телевизор", носителем будет телевизор, ибо он передаёт человеку информацию, а не наоборот
Program gt;
var a:array[1..100]of integer;
n,i:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if(a[i]<=0)then write(a[i],' ');
for i:=1 to n do
if(a[i]>0)then write(a[i],' ');
end.
