Пишем от 0 до 6, потом добавляем +1 в старший разряд...
0 1 2 3 4 5 6
10 11 12 13 14 15 16
20
А для натурального ряда отсчет идет с 1, поэтому
1 2 3 4 5 6
10 11 12 13 14 15 16
20 21
4561,81,53,1,731,91это то что надо
<em>MS DOS QBasic 1.0</em>
CLS
INPUT "a,b,n "; a, b, n
s = n * (a * 100 + b)
PRINT s \ 100; "rub"; s MOD 100; "kop"
<u>Пример</u>
a,b,n ? 18,45,16
295 rub 20 kop
1) <span> Форма цилиндра С открытым верхом</span>
2) Форма прямоугольника
3) Назначение ─ игрушки
4) Материал ─ дерево
Var a:array [1..20] of integer;
i,p:integer;
n:real;
m:<span>longint;</span>
begin
n:=0;
p:=0;
m:=1;
write ('Массив: ');
for i:=1 to 20 do
begin
a[i]:=random(101)-50;
write (a[i],' ');
end;
for i:=1 to 20 do
begin
n:=n+a[i];
end;
n:=n/20;
writeln;
writeln;
write ('Среднее арифметическое = ',n);
for i:=1 to 19 do
begin
if a[20]<>a[i] then p:=p+1;
end;
writeln;
write ('Кол-во чисел отличных от последнего в массиве = ',p);
for i:=1 to 20 do
begin
if a[i]<0 then m:=m*a[i];
end;
writeln;
write ('Произведение отрицательных чисел массива = ',m);
end.