Дан массив А(30). Сформировать новый массив из значений элементов массива А кратных 5
// Дан массив А(30). Сформировать новый массив из значений элементов массива А кратных 5
var ish, krat: array [1..30] of word;
i,j,x :byte;
begin j:=1;
randomize;
for i:=1 to 30 do //заполняем исходный массив случайными числами (до 1000)
begin
ish[i]:=random(1000);
writeln (i, элемент исходного массива ,ish[i]);
end;
writeln (находим элементы кратные пяти:);
for i:=1 to 30 do
begin
x:= ish[i] mod 5; //определяем элементы кратные пяти
if x=0 then
begin //и заполняем новый
krat[j]:=ish[i];
writeln (j, элемент нового массива ,krat[j], равен ,i, элементу исходного массива);
j:=j+1;
end;
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
