const N = 25;var arr: array[1..N, 1..2] of real; firstNumber, secondNumber: real; i, j: integer;begin for i := 1 to N do begin Readln(firstNumber, secondNumber); Writeln(); if (firstNumber + secondNumber > 100) then begin j := j + 1; arr[j, 1] := firstNumber; arr[j, 2] := secondNumber; end; end; Writeln(); for i := 1 to j do Writeln(arr[i, 1], ' | ', arr[i, 2]);end.
var
a: array [1..5,1..6] of integer;
i,j,sum,ip,jp:integer;
flag:boolean;
begin
flag:=false;
sum:=0;
for i:=1 to 5 do
begin
for j:= 1 to 6 do
begin
a[i,j]:=random(31)-10;
write(a[i,j]:4);
if a[i,j] mod 2 = 0 then
sum:=sum+a[i,j];
if not flag then
if abs(a[i,j] mod 2) = 1 then
begin
flag:=true;
ip:=i;
jp:=j;
end;
end;
writeln;
end;
a[ip,jp]:=sum;
writeln;
for i:=1 to 5 do
begin
for j:=1 to 6 do
write(a[i,j]:4);
writeln;
end;
end.