Вторник, 07.01.2025
Pascal 4 All
Главная | Регистрация | ВходПриветствую Вас Гость | RSS
Меню сайта
Категории каталога
Одномерные массивы [4]
Задачи на работу с одномерными массивами
Матрицы [5]
Двумерные массивы
Сортировка [0]
Варианты сортировки
Динамическое программирование [1]
Программирование динамических структур. Использование HEAP
Наш опрос
А вы знали, что кликнув на обьявление в правом блоке раз в день Вы поможете сайту?
Результаты | Архив опросов
Всего ответов: 332

Главная » Статьи » Массивы » Одномерные массивы

  
Последовательность двухзначных чисел

Program PRACT26;
Uses CRT;
Var a: array[10..99] of byte;
    i, k, j: byte;
Begin
ClrScr;
Repeat
Write('Введите двухзначное число: '); Readln(k);
If (k in [10..99]) then Inc(a[k]);
Until (k = 0);
For i := 10 to 99 do
    For k := 1 to a[i] do
        Write(i, ' ');
Readkey;
end.

Источник:

Категория: Одномерные массивы | Добавил: Seqular (24.09.2007) | Автор: Дмитрий
Просмотров: 991 | Рейтинг: 0.0/0 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Поиск
Друзья сайта
Статистика
Copyright MyCorp © 2025
Используются технологии uCoz
style=