Объяснение:
Например:дети 40кг одежда 3кг сумка 2кг вещи 5 кг удачки 10кг обувь 1 кг рыба 20 кг 40+3+2+5+1+20=71 вот так вроде
1)
var
a:array[1..16] of integer;
i,k,s:integer;
begin
randomize;
For i:= 1 to 16 do
begin
a[i]:= -30+random(61);
write(a[i], ' ');
end;
For i:= 1 to 16 do
if a[i] < 0 then k:= k+1;
Writeln;
Writeln(k);
end.
Пример:
-21 4 -11 30 -16 -7 26 -14 -20 10 -18 8 -26 -13 -20 -15
11
2)
Изменить условие "if a[i] < 0 then k:= k+1;" на "if a[i] > 0 then s:= s +a[i];"
и "writeln(k);" на "Writeln(s);"
var x: array[1..10] of real;
n: integer;
begin
for n:=1 to 10 do begin
x[n]:=power(3,n)-5;
writeln(x[n]);
end;
end.
Норм.
Конечно же дробной не существует. Системы счисления названы по своему основанию. А основания - целые числа.
Будет выведен файл состоящий из пяти символов вторым из которых будет 2