Сформировать новый файл, который будет состоять из сумм компонентов - Pascal

  1. Задан файл из N целых компонентов. Сформировать новый файл, который будет состоять из сумм компонентов a1+aN, a2+aN-1, a3+aN-2, ..., ak+am для k<=m. Выдать содержимое полученного файла на экран.

textual

Код:

const
  n = 10;
 
var
  t, x, i: integer;
  f, g: file of integer;
 
begin
  randomize;
  assign(f, 'f.dat');
  rewrite(f);
  writeln('Исходный файл: ');
  for i := 1 to n do
  begin
    x := random(10);
    write(x, ' ');
    write(f, x);
  end;
  writeln;
  reset(f);
  assign(g, 'g.dat');
  rewrite(g);
  writeln('Новый файл: ');  
  for i := 0 to filesize(f) div 2 - 1 do
  begin
    seek(f, n - i - 1);
    read(f, x);
    seek(f, i);
    read(f, t);
    write(g, x + t);
    write(x + t, ' ')
  end;
  close(f);
  close(g);
end.

Похожие ответы
  1. Задача: Сформировать список, содержащий случайные целые числа, положительные и отрицательные; Сформировать новый список, который будет содержать положительные элементы исходного списка; Не создавая нового списка, разместить сначала положительные элементы списка, а затем все остальные. Вот Эта тема у мя вобще не идет. Плиз помогите, оч надаДобавлено через 22 часа 22 минуты Значит вот что я настрадал. Кому не сложно проверьте и поправьте или хотя бы скажите где поправить

  1. сформировать модуль, который сортирует по фазрастанию ДРОБНЫЕ элементы массива. заранее спасибо за помощь

  1. Даны x(n),y(m). Сформировать массив z, в который включить из массива x элементы, превышающие среднее арифметическое значение массива y, а из массива y- элементы, превышающие среднее арифметическое значение массива x. Написать тескт программы в Pascal и Delphi

  1. Сформировать текстовый файл, который содержит номера телефонов сотрудников учреждения: указываются фамилия, инициалы и номер телефона.Добавлено через 37 минут пожалуйста напишите

  1. Доброго времени суток, уважаемые! Помогите, пожалуйста, решить 2 задачи с массивами. Задали дочери в институте, а ни я, ни она - ни в зуб ногой. Заранее благодарствую. Задача1 Дан одномерный массив а. Сформировать новый массив, который состоит только из тех элементов массива а, которые превосходят свой номер на 10. Если таких элементов нет, то выдать сообщение. Задача 2 В массиве X(1:n) каждый элемент равен 0, 1 или 5. Переставить элементы массива так, чтобы сначала располагались все нули, затем все единицы, а затем все пятерки. Дополнительного массива не заводить.

  1. Дан одномерный массив чисел А. Сформировать такой массив В, который содержит копию положительных элементов массива А.

  1. дан массив .сформировать новый массив, в который включить только латинские буквы из исходного массива

  1. . Даны два одномерных массива чисел А и В. Сформировать из них массив С, который содержит элементы А по модулю равные некоторым элементам В. Блин месяц парюсь...Знаю что через abs и тд...С трудом Паскаль понимаю просто,само построение алгоритма и тд...помогите кто чем может плз!)


Нашли ошибку?
Развитие проекта
Яндекс.Метрика