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

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

Задать свой вопрос
Олег Хобелия
На каком языке?
Стаськова Юлия
Pascal, написано же
Правик Карина
a[n] вводится с клавиатуры либо генерируется случайным образом?
Елизавета Кабякова
случайным
2 ответа
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var b:=a.Where(x-gt;(xgt;0) and (x mod 3=0)).ToArray.Println
end.

Тестовое решение:
n= 15
15 39 -3 -40 6 -47 -19 -19 17 14 7 31 10 -37 -13
15 39 6
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] gt; 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
Таисия Шрубенкова
что такое inc(j). можно без этого как-нибудь? ещё не проходили.
Нелли Долинная
inc(j) увеличивает j на 1. Можно неустрашимо поменять на j := j + 1;
Славян Шелюбская-Фриц
Поправил
Дарина Здукова
Если дошли до массивов, a Inc() "еще не проходили", то быстрее всего так мимо и пройдете.
Денис Калнаузов
Всегда дивило, что некие учителя школьникам дают какие-то бедные огрызки средств языка.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт