Дан массив из 10 целых чисел заданный случайным образом, вывести в другой массив числа кратные 5, вывести на экран первый и второй массивы.
Использовать if и mod
random(100);
Использовать if и mod
random(100);
More Questions From This User See All
Answers & Comments
Verified answer
Ответ:
Объяснение:
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.