Получить ответ

Валентина Какой язык программирования нужен? 02.10.14

Анатолий <strong>PacalABC:</strong><br <br const N=10;<br><br <br var<br a: array[1..N] of integer;<br <br begin<br <br for var i := 1 to N do<br begin<br write('Введите целое число ', i, ' = ');<br readln(a[i]);<br end;<br writeln;<br <br writeln('Нечетные числа в массиве: ');<br for var i:=1 to N do<br if(a[i] mod 2 = 1) then <br writeln(a[i]);<br end. 12.10.14 Ответ не понравился автору вопроса

Анатолий PacalABC: const N=10; var a: array[1..N] of integer; begin for var i := 1 to N do begin write('Введите целое число ', i, ' = '); readln(a[i]); end; writeln; writeln('Нечетные числа в массиве: '); for var i:=1 to N do if(a[i] mod 2 = 1) then writeln(a[i]); end. 12.10.14

Еva 4.9 399 отзывов Рейтинг: 121 998 6-й в Учебе и науке Общаться в чате Читать ответы

Похожие вопросы