Задание: распечатать массивы в две строки, один под другим

[Алан1114]

Задание: распечатать массивы в две строки, один под другим

program Massiv; var a: array [1..10] of integer; b: array [1..10] of integer; N:integer; j:integer; // переменная для подсчета размера нового массива i:integer; // счетчик в цикле begin // ввод размера масива writeln('Введите N (N<=10)'); readln(N); writeln('Значения массива А'); // ввод значений масива for i:=1 to n do begin write('a[',i,']=');readln(A); end; // решение j:=0; // начальное значение размера нового массива for i:=1 to n do begin // цикл для обхода массива if (a mod 2)=0 then // условие для фор\мирования нового массива begin inc(j); // увеличение размера формирующегося массива b[j]:=a; // присвоение значения элементу массива b end; end; // вывод результата Writeln('Ответ'); Writeln('Размер полученного массива ',j); Write('B[]: '); for i:=1 to j do Write(B,' '); end.Введите N (N<=10)
10
Значения массива А
a[1]=2
a[2]=4
a[3]=1
a[4]=3
a[5]=7
a[6]=8
a[7]=5
a[8]=9
a[9]=6
a[10]=10
Ответ
Размер полученного массива 5
B[]: 2 4 8 6 10

 

[shrek=)]

var
a,b:array [1..10] of integer;
j,i:integer;
begin
randomize;
j:=1;
write('A=');
for i:=1 to 10 do begin
a[i]:=random(20)-10;
if (a[i]<>0) and (a[i] mod 2 = 0) then begin
b[j]:=a[i];
inc(j);
end;
write(a[i]:6);
end;
writeln;
write('B=');
for i:=1 to j-1 do
write(b[i]:6);
readln
end.