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

Pascal/03.11.16/Program2.pas

@@ -0,0 +1,18 @@
+var
+  a: array[1..30] of integer;
+  i, k, ki, kmax, kimax: integer;
+
+begin
+  for i := 1 to 30 do begin a[i] := random(10);write(a[i], ' '); end;
+  writeln();
+  kmax := 0;
+  kimax := 0;
+  for i := 1 to 29 do 
+  begin
+    if a[i] = a[i + 1] then     
+      k := k + 1 
+    else k := 1;              
+    if k > kmax then kmax := k;
+  end;
+  writeln(kimax, ':= ', kmax);
+end.