VPF::наибольших элементов каждой строки матрицы

руслан21

Дата 22.12.2011, 19:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 22.12.2011

Репутация: нет
Всего: нет

Код


uses crt;
var x:array[1..10,1..10] of real;
i,j,n,ind:integer; pr,max:real;
begin
randomize; clrscr;
writeln('Введите размерность массива* <= 10');
readln(n);
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  x[i,j]:=random*10-5;
  write(x[i,j]:6:2);
  end;
 writeln;
 end;
writeln; pr:=1;
for i:=1 to n do
 begin
 max:=x[i,1];
 for j:=2 to n do
 if x[i,j]>max then  begin max:=x[i,j]; ind:=j; end;
 writeln('‚В ',i,' строке максимальным является ',ind,' элемент, равный =',max:0:2);
 pr:=pr*max;
 end;
writeln('Произведение макс. зн. = ',pr:0:2);
readkey;
end.

Модератор: пользуемся кнопкой "Код"

Это сообщение отредактировал(а) MetalFan - 23.12.2011, 09:14

MetalFan

Дата 23.12.2011, 09:13 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

!
MetalFan

ни "здрасти" ни "до свидания".
Заголовок темы вообще ни о чем.
Даю 2 часа на исправление ситуации, или тема пойдет в мусорку.

Это сообщение отредактировал(а) MetalFan - 23.12.2011, 09:13

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »