Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | program Project2;
uses crt;
var b:array[1..15] of integer;
i,n:integer;
s:String;
procedure SUM;
var summ:integer;
begin
summ:=0;
For i:=1 to n do
summ:=summ+b[i];
WriteLn('===================================');
WriteLn('Result=',summ);
ReadLn;
end;
begin
Randomize;
s:='';
WriteLn('Vvedite Razmer Massiva (ot 1 do 15)');
ReadLn(n);
for i:=1 to n do
begin
b[i]:=Random(10);
s:=s+':'+IntToStr(b[i]);
end;
WriteLn('Elem. Mass.:',s);
SUM;
|
Последний раз редактировалось Janom, 08.04.2011 в 13:20.
|
08.04.2011, 12:48
Древовидный вид