Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 47.

Найти максимальный элемент каждой строки массива и его индексы (всего массива и его индексы).

{Так как элементы могут повторяться, то договоримся, что будем запоминать только индексы первого максимального элемента.}

program prim2;
  uses crt;
  type mas=array[1..100,1..100] of integer;
  var a:mas;
      i,j,n: integer;
      max,min,i1,j1,i2,j2:integer;
begin
  clrscr;
  randomize;
  write('n=');readln(n);
  for i:=1 to n do
    begin
{Так как тип массива integer, то за начальные значения возьмем.}
      max: =-32 768;
      for j:=1 to n do
        begin
{Получаем случайные значения элементов матрицы.}
          a[i,j]:=random(45)-22;
{Выводим элементы матрицы на экран.}
          write(a[i,j]:4);
{Находим максимальный элемент в каждой строке и его индексы.}
          if a[i,j]>max then
            begin
              max:=a[i,j];i1 :=i; j1 :=j;
            end;
        end;
{Печатаем максимальный элемент в каждой строке и его индекс.}
      write (' тах=',тах, ' строка=',i1,' cmon6eц =',j1);
      writeln;
    end;
  readln;
end.

{Для нахождения максимального элемента всего массива необходимо:
- перенести начальный максимум на одну строку выше;
- перенести печать максимального элемента на две строки вниз.
}





 У Вас есть материал пишите нам
 
    Copyright © 2008    
  Top.Mail.Ru