Вывести на экран числа от 1 до 5000 в языке c++ в программе codeblocks

#include <iostream>
using namespace std;

int main() {
int i;
for (i = 1; i < =5000; i++) {
cout<< i;
}
}
//держи:)
//ето простенький цикл for

В самом общем смысле компьютерная этика занимается исследованием поведения людей, использующих компьютер, на основе чего вырабатываются соответствующие нравственные предписания и своего рода этикетные нормы. Само употребление выражения «компьютерная этика» весьма условно, эта дисциплина очень молода, она появилась на рубеже 70-х — 80-х гг. XX столетия, и наряду с ней употребляются такие термины, как «информационная этика», «киберэтика».

Компьютерная этика представляет собой область междисциплинарного исследования и включает рассмотрение технических, моральных, юридических, социальных, политических и философских вопросов. Проблемы, анализируемые в ней, условно можно разделить на несколько классов: 1) проблемы, связанные с разработкой моральных кодексов для компьютерных профессионалов и простых пользователей, чья работа связана с использованием компьютерной техники; 2) проблемы защиты прав собственности, авторских прав, права на личную жизнь и свободу слова применительно к области информационных технологий; 3) группа проблем, связанных с появлением компьютерных преступлений, определением статуса, то есть преимущественно правовые проблемы.

В рамках компьютерной этики выделяется особая область, называемая «хакерской этикой», основание которой заложили хакеры, пионеры, стоявшие у истоков современных информационных технологий. А с развитием сети Интернет в обиход входит и понятие «сетевой этики» или «нэтикета» (производное от net — сеть и etiquette — этикет), обозначающее совокупность правил, сложившихся среди пользователей глобальной сети.

Delphivar  a1, a2: array of integer;  n, c, i: integer; procedure PrintDescending(a: array of integer); var i, j, max: integer; begin  for i := 0 to Length(a) - 1 do  begin    for j := 0 to Length(a) - 1 do      if a[j] > a[max] then max := j;    Write(a[max], ' ');    a[max] := -10001;  end; end; begin  //Запрашиваем ввод длины массива:  Write('Введите длину массива: ');  Read(n);    //Устанавливаем длину массивов:  SetLength(a1, n);  SetLength(a2, n);    //Заполняем первый массив случайными числами:  for i := 0 to n - 1 do    a1[i] := Random(201) - 100;    //Заполняем второй массив только нечётными элементами первого:  for i := 0 to n - 1 do    if Abs(a1[i]) mod 2 = 1 then      begin      a2[c] := a1[i];      c := c + 1;    end;    //Урезаем второй массив:  SetLength(a2, c);    //Выводим первый массив:  for i := 0 to n - 1 do    Write(a1[i], ' ');  Writeln;    //Выводим второй массив в порядке убывания:  if c = 0 then Write('Нечётных элементов нет.')  else PrintDescending(a2); end.

Пример работы: