Алан1114 |
28.01.2014 22:03 |
Помогите, пожалуйста, построить блок схему по программе
Код:
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[i]);
end; // решение
j:=0; // начальное значение размера нового массива
for i:=1 to n do
begin // цикл для обхода массива
if (a[i] mod 2)=0 then // условие для формирования нового массива
begin
inc(j); // увеличение размера формирующегося массива
b[j]:=a[i]; // присвоение значения элементу массива b
end;
end; // вывод результата
Writeln('Ответ');
Writeln('Размер полученного массива ',j);
Write('B[]: ');
for i:=1 to j do Write(B[i],' ');
end.
|