Матрицы

[Leona180991]

Ребята посмотрите, что не так в программе. И помогите дописать ее. Само задание: Дана квадратная матрица размером МхМ. Вычислите сумму диагональных элементов. Найдите наименьший и наибольший элементы и подсчитайте их полусумму. Мне осталось подсчитать полусумму, но как это записать не знаю. Вот сама программа:

Program matrix;
Const n=100;
Var a:array [1..n,1..n] of real;
Begin
For i:=1 to n do
For j:=1 to n do
Begin
Read (a[I,j]);
End;
For i:=1 to n do
Begin
For j:=1 to n do
Write (a[I,j]);
Writeln;
End;
Writeln;
Readln;
End.
Sum:=0;
For i:=1 to n do
Sum:=sum + a[I,i];
End.
min:=a[1,1];
if min>a[i,j] then min:=a[i,j];
End.
max:=a[1,1];
if max<a[i,j] then max:=a[i,j];
End.

И еще нужно привести примеры, т.е. показать как работает матрица. А не знаю какие числа вводить. Помогите, пожалуйста!!!

[Базиля]

Ну полусумма это складываешь эти два элемента и делишь на 2.
например вводишь матрицу
2 2 4
3 5 6
5 7 8
т.к. минимум здесь 2 а максимум 8( по диагонали). (2+8)/2=5
5 это ответ

[Leona180991]

Cпасибо))) Пример пригодился, я наконец разобралась!!! Урааааааа, зачет практически в кармане!!!

Привет всем! Нужна естесственно помощь. Вот такое RGR: Сформировать текстовый файл, содержащий строки исходного файла, встречающиеся в нем один раз. Вывести содержимое файлов на экран. В программе используются подпрограммы.

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

program primer;                                                              
Var f1,f2:text;                                                               
  i,n:integer;                                                                
  s:string;                                                                   
begin {формируем 1 файл}                                                      
  Assign(f1,'G:\ln.txt'); {устанавливаем связь файловой переменной с физически
  Rewrite(f1); {открываем файл для записи}                                    
  Readln(n); {определеяем количество вводимых строк}                          
  for i:=1 to n do                                                            
  begin                                                                       
    readln(s); {вводим с клавиатуры строки}                                   
    writeln(f1,s); {записываем последовательно строки в файл}                 
  end;                                                                        
  close(f1); {заканч раб с 1 файлом, теперь на диске сущ файл с именем file1.t
                                                                              
 {чтение из первого файла и формирование второго}                             
  Reset(f1); {открываем первый файл для чтения}                               
  Assign(f2,'G:\kp.txt'); {устанав связь 2 файловой переменной с физич файлом}
 Rewrite(f2); {открываем 2 файл для записи}                                  
                                                                            
 {последовательно считываем строки из 1 файла}                               
  While not eof(f1) do                                                        
  begin                                                                       
    Readln(f1,s); {считываем очередную строку из 1 файла}                     
    Writeln(f2,s); {записываем во 2 файл строки}                              
  End;                                                                        
  Close(f1);                                                                  
  Close(f2); {заканчиваем работу с файлами}                                   
                                                                              
  {выводим на экран 2 файл}                                                   
  Writeln;                                                                    
  Writeln('второй файл содержит строки:');                                    
  Reset(f2); {открываем 2 файл для чтения}                                    
  While not eof(f2) do {пока не конец 2 файла}                                
  begin                                                                       
    Readln(f2,s); {считываем очередную строку из файла}                       
    Writeln(s); {выводим строку на экран}                                     
  End;                                                                        
End.