Заполнение случайными числами:
Const N = 20;
Var
A:array[1..N] of real;
i:integer;
R:real;
Begin
Randomize;
R:=0;
For i:= 1 to N do
Begin
A[i]:=random*(2*N+1)-N;
R:=R-A[i];
Write(A[i]:0:1,' ')
End;
WriteLn;
WriteLn('R = ',R);
End.
Ввод с клавиатуры:
Const
N = 20;
Var
A:array[1..N] of real;
i:integer;
R:real;
Begin
R:=0;
For i:= 1 to N do
Begin
Read(A[i]);
R:=R-A[i];
End;
WriteLn('R = ',R);
End.
//Не знаю, что Вы хотели сделать этим for(a<=b...
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int a,b=0;
cin>>a>>b;
for(int i=a;i<=b;i++)
cout<<i<<endl;
for(int i=b;i<=a;i++)
cout<<i<<endl;
cin.get();
cin.get();
return 0;
}
Пример ввода 1:
5
1
Пример вывода 1:
1
2
3
4
5
Пример ввода 2:
1
5
Пример вывода 2:
1
2
3
4
5
Если на один символ — 2 байта, то как я понимаю, на восемнадцать символов— 18*2=36 байтов.