Перенос данных из массива А в массив Б - Turbo Pascal

Формулировка задачи:

есть 2 массива, нужно чтоб числа которые делятся на 5 и не делятся на 7 были перенесены или скопированы из массива А в массив В, а потом числа которые были заполнили массив В были суммированы. как это сделать? Вот программа :
program Lab7;
uses crt;
var
A:array[1..1000000] of integer;
B:array[1..1000000] of integer;
k,k2,s,n,i,z,j:integer;
 
begin
Clrscr;
randomize;
writeln('Введите размер массива');
readln(n);
if n> 1000000 then writeln('Превышен допустимый размер массива');
writeln('Массив');
for i:=1 to n do
begin
A[i]:=-100+random(201);
writeln(A[i]);
end;
 
 
begin
k:=0;
if A[i] mod 5=0 then
k:=k+1;
writeln('Количество чисел делящиеся на 5 равно:');
writeln(k);
k2:=0;
if A[i] mod 7 <> 0 then
k2:=k2+1;
writeln('Количество чисел не делящиеся на 7 равно:');
writeln(k2);
end;
 
 
s:=k+k2;
writeln('Сумма чисел которые делятся на 5 и не делятся на 7:');
writeln(s);
end;
end.


textual

Код к задаче: «Перенос данных из массива А в массив Б - Turbo Pascal»

program Lab7;
uses
  crt;
const
  nmax=16200;
var
  A,B: array[1..nmax] of integer;
  k1, k2, k3, s, n, i: integer;
begin
  Clrscr;
  randomize;
  repeat
    write('Ââåäèòå Г°Г*çìåð Г¬Г*Г±Г±ГЁГўГ* n (n < ',nmax,'): ');
    readln(n);
    if n > nmax then writeln('ÏðåâûøåГ* äîïóñòèìûé Г°Г*çìåð Г¬Г*Г±Г±ГЁГўГ*');
  until n < nmax;
  writeln('ГЊГ*Г±Г±ГЁГў A');
  for i := 1 to n do
  begin
    A[i] := -99 + random(199);
    write(A[i]:4);
    if (A[i] mod 5=0) or (A[i] mod 7<>0) then
    begin
      inc(k1);
      B[k1]:=A[i];
      s:=s+B[k1];
    end;
    if A[i] mod 5=0 then inc(k2);
    if A[i] mod 7<>0 then inc(k3);
  end;
  writeln;
  writeln('ГЊГ*Г±Г±ГЁГў B:');
  for i:=1 to k1 do write(B[i]:4); writeln;
  writeln('ÑóììГ* ýëåìåГ*òîâ = ',s);
  writeln('ГЉГ°Г*ГІГ*ûõ 5: ',k2);
  writeln('ГЌГҐ ГЄГ°Г*ГІГ*ûõ 7: ',k3);
  readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.667 из 5

Источник