Допустим, что массив целочисленный из 10 элементов и заполняется случайными положительными значениями. Решение будет примерно таким:
Код:
program mas;
uses crt;
const n=10;
var t: Array[1..n] of integer;
res1: array[1..n] of integer;
res2: array[1..n] of integer;
i, j, k: integer;
procedure generation;
begin
writeln('Massiv T: ');
for i:=1 to n do
begin t[i]:=random(15); write(t[i]:5); end;
end;
procedure quadrat;
begin
if sqr(t[i])>10 then begin inc(j); res1[j]:=t[i]; end;
end;
procedure koob;
begin
if sqr(t[i])*t[i]>20 then begin inc(k); res2[k]:=t[i]; end;
end;
begin
randomize;
k:=0;
j:=0;
generation;
Writeln;
for i:=1 to n do
begin
quadrat;
koob;
end;
writeln('Massiv res1: ');
for i:=1 to j do
write(res1[i]:5);
Writeln;
writeln('Massiv res2: ');
for i:=1 to k do
write(res2[i]:5);
readln;
end.