Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.129.70.157] |
|
Сообщ.
#1
,
|
|
|
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. Введите 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 Добавлено (без картинки) |