задачи на массивы. язык паскаль, дельфи консольная.

[Don Karleone]

расширеный режим -> управление вложениями -> обзор -> загрузить.

[ArsGo]

Кажется вот

[Don Karleone]

Задача B

const
  n = 1000;
var
  mas: array [1..n] of cardinal;
  i, j, Count, A, K: cardinal;

begin
  write('K = ');
  readln(K);  // количество элементов в массиве;
  for i:=1 to K do  // цикл ввода элементов массива
    readln(mas[i]);
  // сортировка методом пузырька
  Count:=0;
  for i:=1 to K-1 do
    for j:=1 to K-i do
      if mas[j] > mas[j+1] 
        then
             begin
                A:=mas[j];
                mas[j]:=mas[j+1];
                mas[j+1]:=A;
                Inc(Count);  // подсчет количества перестановок
             end;
  writeln('количество перестановок =',Count);
  readln
end;

а вообще, входные данные наверное должны браться из файла.

[ArsGo]

Спасибо, но я эту сам решил, мне нужны все кроме этой))) Как было написано в самом первом посте)

[ArsGo]

"а вообще, входные данные наверное должны браться из файла"
У нас задача отправляется на сервер и там проверяется.

[Don Karleone]

Задача D

type
  TRecord = record
    num  : cardinal;
    count: cardinal;
  end;

const
  N = 1000;

var
  mas: array [1..N] of TRecord;
  f: TextFile;
  I, J, k: cardinal;
  A: TRecord;

begin
  I:=0;
  // считываем данные из текстового файла D:\Input.txt
  AssignFile(f,'D:\Input.txt');
  Reset(f);
  readln(f,k);
  while not eof(f) do
    begin
      Inc(i);
      read(f,mas[i].num);
      readln(f,mas[i].count);
    end;
  CloseFile(f);

  // сортировка пузырьком
  for I:=1 to k-1 do
    for J:=1 to k-I do
      if (mas[j].count < mas[j+1].count) xor
         ((mas[J].count = mas[J+1].count) and (mas[J].num > mas[J+1].num))
          then
              begin
                A:=mas[J];
                mas[j]:=mas[j+1];
                mas[j+1]:=A;
              end;

  // вывод результата
  for i:=1 to k do
    writeln(mas[i].num,' ',mas[i].count);
  readln;
end.

[ArsGo]

А что такое .count и .num???

[Don Karleone]

Сообщение от ArsGo

А что такое .count и .num???

num - номер, count - набранные баллы.

[ArsGo]

  // считываем данные из текстового файла D:\Input.txt
  AssignFile(f,'D:\Input.txt');
  Reset(f);
  readln(f,k);
  while not eof(f) do
    begin
      Inc(i);
      read(f,mas[i].num);
      readln(f,mas[i].count);
    end;
  CloseFile(f);

А как заменить считывание данных с файла просто считыванием?

[Don Karleone]

[QUOTE=ArsGo;633312А как заменить считывание данных с файла просто считыванием?[/QUOTE]

здесь входные данные из файла беруться. А так их надо будет вручную вводить.
Например для 3-х:

for i:=1 to 3 do
  begin
    read(mas[i].num);
    readln(mas[i].count);
  end;