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

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

Задать свой вопрос
1 ответ

Ответ:

Разъяснение:

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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт