1. Информатика
  2. Массив из 100 ячеек заполнить

Массив из 100 ячеек заполнить числами 1 1 2 2 49 49 50 50 ( без использования ввода с клавиатуры) и вывести его на экран в строку

savvakuratov2005 savvakuratov2005    2   02.05.2019 18:25    0

Ответы
ДарьяРэя ДарьяРэя  09.06.2020 06:46

Объяснение:

const

 n = 100;

var

 a:array[1..n] of integer;

 i, k:integer;

begin

 k:=1;

 for i:= 1 to n do begin

   a[i]:=k;

   if (i mod 2 = 0) then k:=k + 1;

 end;

 for i:= 1 to n do

   write(a[i], ' ');

 readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Викусик1258 Викусик1258  02.06.2019 01:00
7. вычислите выражение 11100,0112–34,248+5а,816+42,258+11,012–3f,а16.. укажите, какая система счисления для выполнения всех операций является оптимальной с точки зрения...
Glenchittt1 Glenchittt1  13.10.2019 18:18
Переведите целые числа из десятичной системы счисления в двоичную: 772, 71...
sashahyrik sashahyrik  13.10.2019 18:21
Перевести число 17,25 десятичных в двоичную систему счисления. с пояснением...
Alexbouk Alexbouk  03.05.2020 23:25
В городе есть кольцевая дорога протяженностью 117 километров. Ваша машина движется со скоростью N км/ч в течение T часов по часовой стрелке. Отметки километража на кольцевой...
upvchasro upvchasro  03.05.2020 23:24
Python Ученик принес K конфет в класс. Он хочет раздать все конфеты поровну между N одноклассников, но конфет может не достаться всем в равном количестве. Некоторым ученикам...
лиза2291 лиза2291  03.05.2020 23:12
Програма Python.Складіть програму з використанням однієї функції зі змінною кількістю аргументів для обчислення сум чисел...
SkottHelimboorg SkottHelimboorg  03.05.2020 23:11
Демонстрационный вариант 2018 г.Часть 1ответом к заданиям 1-3 является одна цифра, котораясоответствует номеру правильного ответа.ответить1. В ходе о геймерам задали во...
baha50 baha50  15.04.2020 10:54
Напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 7 и оканчивающихся на 5. Программа получает на вход натуральные числа...
sarababy777 sarababy777  15.04.2020 10:54
Дана программа.beginwrite ( cat );write ( Выучи слово! )end.На экране данные выведены следующим образом:Выучи слово!catcat Выучи слово!cat Выучи слово!​...
ilyazavrik ilyazavrik  15.04.2020 15:49
Построить логическую схему для функции: F = (A & B & C) v B & C v A;...

Популярные вопросы