Создать два массива из чисел заданного. В первом числа оканчиваются на цифру 7, а во втором нет

biotsar

Пользователь задает размер массива. Массив заполняется случайными целыми числами в диапазоне от 1 до 1000 и выводится на экран в строку. Создать два новых массива состоящих из чисел заданного массива. В первом числа оканчиваются на цифру 7, а во втором нет.
1 ответ

biotsar

  const
    nmax=100;
  type
    tArr=array[1..nmax] of integer;
  var
    a,b,c: tArr;
    i,n,p,q: integer;
begin
  write('vvedite razmer massiva: '); readln(n);
  writeln('massiv a:');
  randomize;
  for i:=1 to n do
  begin
    a[i]:=random(1000+1);
    write(a[i],' ');
    if a[i] mod 10=7 then
    begin
      inc(p);
      b[p]:=a[i];
    end
    else
    begin
      inc(q);
      c[q]:=a[i];
    end;
  end;
  writeln;
  writeln('massiv b:');
  for i:=1 to p do write(b[i],' '); writeln;
  writeln('massiv c:');
  for i:=1 to q do write(c[i],' '); writeln;
  readln;
end.