Дан массив B(21) Сформировать новый массив из кратных 4 чисел исходного - Turbo Pascal

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

Дан массив B(21) Сформировать новый массив из кратных 4 чисел исходного. Мальчики, помогите пожалуйста с задачей, программирование вообще не мое, но на стипендию выходить как-то нужно.

Код к задаче: «Дан массив B(21) Сформировать новый массив из кратных 4 чисел исходного - Turbo Pascal»

textual
uses crt;
const n=21;
var a,b:array[1..n] of integer;
i,j,x,k:integer;
BEGIN
clrscr;
for i:=1 to n do
 a[i]:=random(100);
 write('MASS A : ');
 for i:=1 to n do
  write(a[i]:4);
  writeln;
 
  j:=1;
  for i:=1 to n do
   if a[i] mod 4=0 then
    begin
     b[j]:=a[i];
     inc(j);
    end;
 
    writeln('New mass : ');
    for i:=1 to j-1 do
     write(b[i]:4);
readkey;
END.

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы