fork download
copy 
  1. program Anjuta;
  2. var
  3.   i,j  : integer;
  4.   A    : array[1..5,1..5] of integer;
  5.   B    : array[1..25] of integer;
  6.   curB : integer;
  7. begin
  8.   {init of array}
  9.   for i:=1 to 5 do
  10.   begin
  11.      for j := 1 to 5 do
  12.      begin
  13.          A[i,j] := i*j
  14.      end
  15.   end;
  16.  
  17.   {transoforming of array}
  18.   curB := 1;
  19.   for i := 1 to 5 do
  20.   begin
  21.       for j := 1 to 5 do
  22.       begin
  23.            if A[i,j]>10 then
  24.            begin
  25.                B[curB] := A[i,j];
  26.                curB := curB+1;
  27.            end
  28.       end
  29.   end;
  30.  
  31.   writeln('Result:');
  32.   for i:= 1 to curB do
  33.   begin
  34.      write(B[i]);
  35.      write(' ')
  36.   end;
  37.   writeln;
  38. end.
Success #stdin #stdout 0.01s 4112KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Result:
12 15 12 16 20 15 20 25 0
https://ideone.com/s5PBp
language:
Pascal (gpc 20070904)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!