Чисто для себя. C2 Вариант 1 program C21; uses crt; var a:array [1..30] of integer; k,i: integer; begin crlscr writeln ('a[i]'); readln (a[i]); k:=0; for i:=1 to 30 do if a[i]<0 then k:=k+a[i]; writeln ('k=',k); else writeln ('otsutstvuet'); readkey; end. C2 Вариант 2 program C22 uses crt; var a:array [1..30] of integer; k,i:integer; begin crlscr writeln ('a[i]'); readln (a[i]); k:=1; for ...
-
-
07.03.2010 в 20:31-
-
08.03.2010 в 06:06