Program invert;
uses crt;
var
i                     : integer;
an                    : array[1..100] of integer;
na                    : array[1..100] of integer;

begin
clrscr;
randomize;
{create array of random digits}
for i:=1 to 10 do
  an[i] := random(100);

writeln('ORIGINAL ARRAY');
for i:=1 to 10 do
 writeln('#',i, '  ', an[i]);

{inverted array.}
for i:=1 to 10 do
 na[i] := an[10-i+1];

{Print results to the screen}
writeln;
writeln('INVERTED ARRAY');
for i:=1 to 10 do
 writeln('#',i, '  ', na[i]);

readkey;
end. {of Main Program}

Program matrix;
uses crt;
var
i,j                   : integer;
an                    : array[1..100,1..100] of integer;
na                    : array[1..100,1..100] of integer;
n,m                   : byte;
met                   : byte;
begin
clrscr;
randomize;

writeln('Input matrix size');
writeln('Input row col:');
readln(n);
writeln('Input column col:');
readln(m);

writeln('n=',n);
writeln('m=',m);

writeln('Choose input method: 1 - automatic,  2 - manual');
readln(met);
writeln('met=',met);
writeln;

{Auto}
if( met = 1 ) then
  begin
  {create array of random digits}
  for i:=1 to n do
  for j:=1 to m do
    an[i][j] := random(10);
  end;

{Manual}
if( met = 2) then
  begin
    for i:=1 to n do
    for j:=1 to m do
      begin
      write('#',i,'.',j, '. ');
      readln( an[i][j]);
      end;
  end;

writeln('ORIGINAL ARRAY');
for i:=1 to n do
  begin
  writeln;
  for j:=1 to m do
    begin
{    write(' #',i,'.', j,'. ', an[i][j]);}
    write(' ', an[i][j]);
    end
  end;

{inverted array.}
for i:=1 to n do
for j:=1 to m do
 na[i][j] := an[j][i];

{Print results to the screen}
writeln;
writeln('INVERTED ARRAY');
for i:=1 to n do
  begin
  writeln;
  for j:=1 to m do
    begin
{    write(' #',i,'.', j,'. ', na[i][j]);}
    write(' ', na[i][j]);
    end
  end;

readkey;

end. {of Main Program}

12 1541233 2178 123098213098 3293 012 320 0234

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <conio.h>

#define nSize 1000           //расчет максимум на 1000 чисел
#define nNumberLen 30    //максимальная длина числа

void main()
{
  char   text[nSize];
  char   number[nSize][nNumberLen];
  int    nNumberCol = 0;
  char   sBuf[nNumberLen];
  char   symbol[1];
  int    i = 0;
  int    j = 0;
  FILE   *fin;
  FILE   *fout;

  //Очистка экрана
  clrscr();

  //Инициализация
  strcpy(text, "");
  for(i=0; i < nSize; i++)
    strcpy( number[i], "");
  nNumberCol = 0;
  strcpy(sBuf, "");

  //Открываем файл
  if( (fin = fopen("MY_TEXT.TXT", "rt")) > 0)
  {
    //Посимвольно читаем
    while( feof(fin) == 0)
    {
      if( fread( symbol, sizeof(symbol), 1, fin) > 0)
   strncat( text, symbol,1);
    }

    //Закрываем файл
    fclose(fin);
  }

  printf("TEXT FILE CONTENTS\n");
  printf("%s\n", text);
  printf("Text len = %d bytes.\n", strlen(text));

  //Разбор текста на числа
  for( i = 0; i < strlen(text) + 1; i++ )
  {
   //знаки препинания
    if( text[i]==' ' || text[i] == '\0' )
    {
      if(strlen(sBuf) > 0)
      {
        strcpy( number[nNumberCol], sBuf);
        nNumberCol++;
        strcpy(sBuf, "");
      }
    }
    else
    {
      if( text[i] =='\n' || text[i] =='\t' || text[i] =='\b' || text[i] =='\r' )
        strcpy(sBuf, "");
      else
        strncat( sBuf, (text+i), 1); //добавить один символ к текущей строке
    }
  }

  printf("Number col = %d\n\n", nNumberCol);     //количество чисел
  getch();

  for( j = 0; j < nNumberCol; j++)
    printf("%d. %s (%d)\n", j+1, number[j], strlen(number[j]));

  getch();

  for( j = 0; j < nNumberCol; j++)
    if( strlen(sBuf) < strlen(number[j]) )
      strcpy(sBuf, number[j]);

  printf("\nThe longest word of the text: \n\n%s (%d)\n\n", sBuf, strlen(sBuf));

  //Открываем выходной файл
  if( (fout = fopen("MY_LOG.LOG", "wt")) > 0 )
  { //пишем
    fwrite( sBuf, sizeof(sBuf), 1, fout);
    //закрываем
    fclose(fout);
    printf("Successful file writing.\n\n");
  }
  else
    printf("Error writing output file.\n\n");

  printf("Press any key to exit...");
  getch();
  getch();
}