Pascal. Создать файл «U.txt», состоящий из N целых случайных чисел. С элементами созданного файла выполнить следующие операции:

[Егор55555]

Срочно, решите умоляюю завтра сдавать программу надо
Создать файл «U.txt», состоящий из N целых случайных чисел, принадлежащих интервалу от 5 до 55. С элементами созданного файла выполнить следующие операции:
- вычислить количество элементов файла «U.txt» кратных 13.
- вычислить сумму элементов, меньших 35.
- найти наибольший элемент файла «U.txt».

[Serge_Bliznykov]

создать файл можно так

var f:Text; {или TextFile если у Вас Delphi}
  a,n : integer;
begin
  Randomize;
  WriteLn('Введите, сколько чисел будет в файле: ');
  ReadLn(n);
  Assign(f, 'U.txt'); {или AssignFile(f); если у Вас Delphi}
  Rewrite(f);
  while n>0 do begin
    a:=5+Random(51);
    WriteLn(f,a);
    Dec(n);
  end;
  Close(f);  {или CloseFile(f); если у Вас Delphi}
  WriteLn('Файл U.txt успешно сформирован!');
....

читать числа из файла:

  Assign(f, 'U.txt'); {или AssignFile(f); если у Вас Delphi}
  Reset(f);
 
  while Not eof(f) do begin
     ReadLn(f, a);
     
     <<тут делай с прочитанным числом в переменной a что нужно!>>
      
  end;

есть вопросы?

[Егор55555]

А это как сделать?
Вычислить количество элементов файла «U.txt» кратных 13.

[Aleksandr H.]

if a mod 13 = 0 then inc(K_13);

[Егор55555]

спасибо
а это как ???
- найти наибольший элемент файла «U.txt».

[Serge_Bliznykov]

а это так - прочитать первое число и записать его в переменную (например, Minimal)
потом в цикле читать числа и сравнивать с Minimal, если очередное число меньше, чем Minimal, тогда присвоить переменной Minimal значение этого числа.

всё.

[Егор55555]

не особо понятно, можно в виде кода?

[Егор55555]

- вычислить сумму элементов, меньших 35.
Напишите пожайлусто код, прошуууу

[Serge_Bliznykov]

Сообщение от Егор55555

- вычислить сумму элементов, меньших 35.
Напишите пожайлусто код, прошуууу

Зачем Вам код, если Вы Паскаль изучать не хотите?!

  Assign(f, 'U.txt'); {или AssignFile(f); если у Вас Delphi}
  Reset(f);

  sum := 0; 
  while Not eof(f) do begin
     ReadLn(f, a);

     if a<35 then sum := sum + a;
     
  end;
  Close(f);
  WriteLn('сумму элементов, меньших 35 = ',sum);