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

Pascal/mass/Program1.pas

@@ -0,0 +1,14 @@
+var i:integer;
+var A:array[1..10] of integer;
+begin
+Randomize;
+for i:=1 to 10 do begin
+A[i]:=Random(9);
+write(A[i]);
+end;
+writeln;
+for i:=1 to 10 do begin
+if A[i] mod 2=0 then
+write(A[i]);
+end;
+end.

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.

Pascal/mass/Program4.pas

@@ -0,0 +1,34 @@
+var 
+a:array [1..10, 1..20] of integer;
+i,j:integer;
+sum:array [1..10] of integer;
+max:integer;
+begin
+for i:=1 to 10 do begin
+for j:=1 to 20 do begin
+a[i,j]:=Random(10);
+write(a[i,j], ' ');
+end;
+writeln;
+end;
+writeln;
+for i:=1 to 10 do begin
+sum[i]:=0;
+end;
+for i:=1 to 10 do begin
+for j:=1 to 20 do begin
+sum[i]:=sum[i] + a[i,j];
+end;
+end;
+for i:=1 to 10 do begin
+write(sum[i], ' ' );
+end;
+writeln;
+max:=1;
+for i:=1 to 10 do begin
+if sum[i]<sum[max] then begin
+max:=i;
+end;
+end;
+write(max, ' ' , sum[max]);
+end.

Pascal/mass/Program7.pas

@@ -0,0 +1,23 @@
+const
+  N = 30;
+
+var
+  A: array[1..N] of integer; 
+  i, x, y: integer; 
+  s: real;
+
+begin
+  for i := 1 to N do A[i] := Random(100); 
+  for i := 1 to N do if A[i] < 20 then A[i] := -1;
+  x := 0;
+  y := 0;
+  for i := 1 to N do 
+  begin
+    if A[i] <> -1 then begin
+      x := x + A[i];
+      y := y + 1;
+    end;
+  end;
+  s := x / y;
+  write(s);
+end.

Pascal/mass/Program8.pas

@@ -0,0 +1,22 @@
+const
+  N = 30;
+
+var
+  A: array[1..N] of integer; 
+  i, x, y: integer; 
+  s: real;
+
+begin
+  for i := 1 to N do A[i] := Random(40) + 160; 
+  for i := 1 to N do if A[i] < 180 then A[i] := -1;
+  x := 200;
+  for i := 1 to N do 
+  begin
+    if A[i] <> -1 then begin
+      if A[i] < x then begin
+        x := A[i];
+      end;
+    end;
+  end;
+  write(x);
+end.

Pascal/mass/Program9.pas

@@ -0,0 +1,8 @@
+const N = 31; 
+var A: array[1..N] of integer; 
+    i, x, y: integer; 
+    s: real; 
+begin
+  for i:=1 to N do Random(40) - 20; 
+  
+end.