Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Pascal. Дан массив A[N]. Сформировать массив В из положительных элементов, кратных 3 массива А.

Ответ оставил Гость

Const
  N = 20;
var
  a, b: array[1..N] of integer;
  i, j: integer;
begin
  writeln(Массив A:);
  for i := 1 to N do
  begin
    a[i] := random(199) - 99;
    write(a[i] : 4);
    if (a[i] > 0) and (a[i] mod 3 = 0) then
    begin
      j := j + 1;
      b[j] := a[i];
    end;
  end;
  writeln;
  writeln(Массив B:);
  for i := 1 to j do
    write(b[i] : 4);
end.

Пример работы программы:
Массив A:
   3  73  -1 -35  97 -14  25  34 -79   5 -39  39  45  96 -85 -59 -14  76 -53 -12
Массив B:
   3  39  45  96