Дамп всех задач

2017-05-22 13:29:43 +03:00
parent b970626fef
commit 93746b05d7
173 changed files with 2505 additions and 0 deletions
--- a/Pascal/mass/Program2.pas
+++ b/Pascal/mass/Program2.pas
@@ -0,0 +1,14 @@
+var i:integer;
+var A:array[1..20] of integer;
+begin
+Randomize;
+for i:=1 to 20 do begin
+A[i]:=Random(18)-9;
+write(A[i], ' ');
+end;
+writeln;
+for i:=1 to 20 do begin
+if A[i] <0 then
+write(A[i]);
+end;
+end.