Двумерный массив

@acme · Регистрация: 03.03.2009

Author24 — интернет-сервис помощи студентам

Добрый день!
Очень нужна ваша помощь

Задача:
Дана матрица десятичных чисел A[6x6]. Эти элементы взять из файла(masiv.txt). Найти max элемент на главной диагонали. Вывести матрицу на экран.
Заранее спасибо

@Extremall · 03.03.2009, 22:14

Держи! Файлик этот тока на диск c: кинь... ну или сам путь измени!

Pascal

const fileName = 'c:\masiv.txt';
var a:array[1..6,1..6] of real;
    max_nom:integer;
    max:real;
    f:text;
    i,j:integer;
 
begin
randomize;
assign(f,fileName);
reset(f);
for i:=1 to 6 do begin
  for j:=1 to 6 do readln(f,a[i,j]);
end;
close(f);
max_nom:=1;
max:=a[1,1];
for i:=2 to 6 do
  if a[i,i]>max then begin
    max_nom:=i;
    max:=a[i,i];
  end;
writeln('Matrix:');
for i:=1 to 6 do begin
  for j:=1 to 6 do write(a[i,j]:6:2);writeln;
end;
writeln;
write('Max diagonalniy element : a[',max_nom,',',max_nom,'] = ',max:6:2);
readln;
end.

@acme · 03.03.2009, 22:25 **[ТС]**

Огромное спасибо !

@acme 1 / 1 / 0 Регистрация: 03.03.2009 Сообщений: 10
	03.03.2009, 22:25 [ТС]	3
	Огромное спасибо ! 0

Опции темы

Двумерный массив

Решение