Составить программу вычисления

Объяснение:

1) В памяти хранится вся информация, с которой работает компьютер. Память, которая находится внутри системного блока называется внутренней. Винчестер (жесткий диск) компьютера - внутренняя память, где хранится вся информация (музыка, фильмы, мультфильмы, фотографии, документы).

2) Для хранения информации на компьютере используется долговременная память - жёсткий диск. А компьютерные документы называются файлами. sikringbp и 1 других пользователей посчитали ответ полезным!

3) В компьютере хранится очень много информации: программы, различные данные. Всю эту информацию можно назвать одним словом — файл. Файл — это информация, хранящаяся в долговременной памяти как единое целое и обозначенная именем. У каждого файла есть имя.

4) Виды расширений файлов

Видеофайлы, могут быть: avi, wmf, 3gp, mp4, mpg2.

Фотографии и рисунки, определяются с таких расширений: jpg, bmp, gif, tiff, png.

Тексты и документы: txt, doc, rtf, docx.

Файлы, где записаны данные для расчётов в виде электронных таблиц имеют расширение - xls, xlsx, xlsm, ods.

5) хз

6) Кликаем правой кнопкой мыши на незанятом месте рабочего стола для вызова контекстного меню.

В появившемся меню находим пункт «Создать», подводим к нему курсор мыши и выбираем в появившемся подменю пункт «Папку».

На рабочем столе компьютера появится значок папки под названием «Новая папка».

а 7 и 8 сам

1. Программа, создающая тестовый файл.

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var f: file of integer;
  var t:integer;
  Assign(f,'input.dat'); Rewrite(f);
  for var j:=1 to 5 do begin
    for var i:=1 to 10 do begin t:=Random(10,99); Write(f,t) end;
    for var i:=1 to 10 do begin t:=-Random(10,99); Write(f,t) end
    end;
  f.Close;
end.

2. Программа, которую требовалось написать

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
  var f,g: file of integer;
  var a:=new integer[20];
  var t:integer;
  Assign(f,'input.dat'); Reset(f);
  Assign(g,'output.dat'); Rewrite(g);
  while not f.Eof do begin
    for var i:=0 to 19 do Read(f,a[i]);
    a:=a[10:15]+a[0:5]+a[15:20]+a[5:10];
    for var i:=0 to 19 do Write(g,a[i])
    end;
  f.Close;
  g.Seek(0);
  while not g.Eof do begin Read(g,t); Print(t) end;
  g.Close
end.