Объяснение:
uses Crt;
const n=10;
type Mas = array [1..n] of integer;
var A, B: Mas;
i,k: integer;
begin
ClrScr; Randomize; k:=0;
for i:=1 to n do
A[i]:=1+random (100);
if (A[i] mod 5 =0) then begin
k:=k+1;
B[k]:=A[i];
end;
WriteLn(' Исходный массив: ');
for i:=1 to n do Write(A[i]:5);WriteLn;
WriteLn(' Исхомый массив: ');
for i:=1 to k do Write(B[i]:5);WriteLn;
ReadLn;
end.
Объяснение:
uses Crt;
const n=10;
type Mas = array [1..n] of integer;
var A, B: Mas;
i,k: integer;
begin
ClrScr; Randomize; k:=0;
for i:=1 to n do
begin
A[i]:=1+random (100);
if (A[i] mod 5 =0) then begin
k:=k+1;
B[k]:=A[i];
end;
end;
WriteLn(' Исходный массив: ');
for i:=1 to n do Write(A[i]:5);WriteLn;
WriteLn(' Исхомый массив: ');
for i:=1 to k do Write(B[i]:5);WriteLn;
ReadLn;
end.