ПОМОГИТЕ ПОЖАЛУЙСТА!!! Очень нужно))) Из двух одномерных целочисленных массивов, по 10...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!! Очень нужно)))
Из двух одномерных целочисленных массивов, по 10 элементов в каждом, сформировать новый массив, включив в него все значения, кратные 10
Заранее спасибо

Comments

А в каком порядке должны находится числа в новом массиве?

---

С начало все из первого, потом все из второго?

---

Да, сначала из первого

Answer 1

Var s,i:integer;
A:array[1..10] of integer;
B:array[1..10] of integer;
C:array[1..20] of integer;
begin
for i:=1 to 10 do begin
read(a[i]);
if a[i] mod 10 = 0 then begin
s:=s+1;
C[s]:=a[i];
end;
end;
for i:=1 to 10 do begin
read(B[i]);
if a[i] mod 10 = 0 then begin
s:=s+1;
C[s]:=b[i];
end;
end;
for i:=1 to s do begin
write(c[i],' ');
end;
end.

Comments

Это паскаль

---

Спасибо

---

Я просто не знаю что нужно

---

да незачто)

---

Да, это в паскале, все правильно)