Найти третий массив, в который записать сначала все кратные 4 элементы первого массива, а затем все кратные 3

@AlexInf · Регистрация: 09.03.2017

Author24 — интернет-сервис помощи студентам

4.Элементы двух массивов – целые числа в пределах от 4 до 29. Найти третий массив, в который записать сначала все кратные 4 элементы первого массива, а затем все кратные 3 элементы второго массива.

@ZX Spectrum-128 · 09.03.2017, 19:26

Pascal

const
  n = 10;
 
var
  k, i: integer;
  a, b: array [1..n] of integer;
  c: array [1..2 * n] of integer;
 
begin
  randomize;
  writeln('Array A:');
  for i := 1 to n do
  begin
    a[i] := random(26) + 4;
    write(a[i]:3);
  end;
  writeln;
  writeln('Array B:');  
  for i := 1 to n do
  begin
    b[i] := random(26) + 4;
    write(b[i]:3);
  end;
  writeln;
  k := 0;
  for i := 1 to n do
    if a[i] mod 4 = 0 then
    begin
      inc(k);
      c[k] := a[i];
    end;
  
  for i := 1 to n do
    if b[i] mod 3 = 0 then
    begin
      inc(k);
      c[k] := b[i];
    end;
  
  writeln('Array C:');      
  for i := 1 to k do
  begin
    write(c[i]:3);
  end;
end.

@AlexInf 0 / 0 / 0 Регистрация: 09.03.2017 Сообщений: 7
		1
	Найти третий массив, в который записать сначала все кратные 4 элементы первого массива, а затем все кратные 3 09.03.2017, 18:37. Показов 1702. Ответов 1 Метки нет (Все метки) 4.Элементы двух массивов – целые числа в пределах от 4 до 29. Найти третий массив, в который записать сначала все кратные 4 элементы первого массива, а затем все кратные 3 элементы второго массива. 0

	09.03.2017, 19:26

Опции темы

Найти третий массив, в который записать сначала все кратные 4 элементы первого массива, а затем все кратные 3

Решение