|
|
zadah35.PAS |
|
{* Задача 35 *}Unit ZADAH35;Interface Implementation Begin writeln(' Нечетные элементы целочисленного массива A размера N≤15 записать в массив B. Вывести размер массива B и его содержимое. ');End. Program array55; Uses zadah35.pas; {* Эту строку можно удалить *} Uses crt; {* Подключение модулей *} Type {* Создание новых типов данных *} mas = Array[1..100] Of integer; Var {* Необходимые переменные *} i : integer; j : integer; k : integer; n : integer; f1 : integer; f2 : integer; l : integer; c : integer; d : real; g : real; ar : mas; br : mas; cr : mas; Begin clrscr; {* Очищаем экран *} write('Введите длину массива: '); readln(n); For i := 1 To n Do {* Переменная i увеличивается с 1 до n *} Begin write('Введите ', i, ' элемент массива '); readln(ar[i]); End; clrscr; {* Очищаем экран *} For i := 1 To n Do {* Переменная i увеличивается с 1 до n *} write(ar[i] : 3, '|'); writeln; {* Вывод пустой строки *} j := 1; For i := 1 To n Do {* Переменная i увеличивается с 1 до n *} If ar[i] Mod 20 Then Begin inc(k); {* k++ *} br[j] := ar[i]; inc(j); {* Прибавим к j единицу *} End; write('Длина массива B = ', k); writeln; {* Пустая строка *} For i := 1 To k Do {* Увеличиваем i от 1 до k с шагом 1 *} write(br[i] : 3, '|'); End. 07.08.2014 - Breakpoint - точка остановки 07.08.2014 - Топ-10 самых популярных приложений в Facebook 18.11.2013 - Панель управления и персонализация системы. Windows Vista 18.11.2013 - Логические и физические диски. Windows Vista 18.11.2013 - Удаление файлов и папок 01.11.2013 - Программирование дисковых подсистем: возможности 31.10.2013 - Windows8 или Windows7? 31.10.2013 - Windows8, игры |
|
Non-commercial fansite
|