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

Pascal/03.11.16/Program4.pas

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