Pascal. Заполнение массива длины N нулями и единицами, данные при этом чередуются, начиная с нуля
Мы используем cookie-файлы, чтобы получить статистику, которая помогает нам улучшить сервис для Вас с целью персонализации сервисов и предложений. Вы можете прочитать подробнее о cookie-файлах или изменить настройки браузера. Продолжая пользоваться сайтом без изменения настроек, вы даёте согласие на использование ваших cookie-файлов.
speech bubble

Pascal. Заполнение массива длины N нулями и единицами, данные при этом чередуются, начиная с нуля

Заполнение массива длины N нулями и единицами, данные при этом чередуются, начиная с нуля

 

Задание: Pascal. Заполнение массива длины N нулями и единицами, данные при этом чередуются, начиная с нуля

Дано:

Pascal(Паскаль) - язык программирования

N - количество элементов в массиве

binAr - массив

Решение:

program BinaryArray;
const N = 15; // Количество элементов
var binAr:array[1..N] of integer; // Массив целых чисел
var i:integer; //Переменная цикла
begin
    for i:=0 to N do binAr[i]:= i mod 2; //Заполняем массив остатком от деления
    for i:=0 to N do write(binAr[i]:2); //Выводим массив на печать
end.

Результат:

0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1

 

 

Для комментирования необходимо авторизоваться