Составьте стих про интернет, , , безопасный интернет-хороший интернет". только не надо с разных сайтов списывать, я уже всё 5 строчек хватит

Без интернета  жизнь как без света посиди в интернете понравится тебе потому что интернет как рай на земле! ахахаххаахах

Const n = 5; var a: array[1..n] of string;     i,j: integer;     s: string; begin  for i: =1 to n do  begin    write(i,'. ');     readln(a[i]);   end;     for i: =1 to n-1 do  for j: =1 to n-i do  if a[j]> a[j+1] then      begin      s: =a[j]; a[j]: =a[j+1];       a[j+1]: =s;     end;   for i: =1 to n do   write(a[i],', '); end.

#include < iostream> #include < conio.h> #include < time.h> using namespace std; void main() {   srand(time(null));   setlocale(0, "");   int arr[17];   int a, b, chet=0, nechet = 0; cout < < "введите диапазон ." < < endl < < "нижняя граница диапазона: "; cin > > a; cout < < "верхняя граница диапазона: "; cin > > b; cout < < endl; for (int i = 0; i < 17; ++i) {   arr[i] = a + rand() % (b-a+1);   cout < < " "< < arr[i]; } for (int i = 0; i < 17; ++i) {   if (arr[i] % 2 == 0) chet++;   else nechet++; } if (chet > nechet)   cout < < " \n четных больше"; else if (nechet> chet)   cout < < "\n нечетных больше"; else cout < < "\n одинаковое количество четных и нечетных";   _getch(); }