Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также соответствующие значения максимальных элементов

@Sumrak_Sergei · Регистрация: 20.12.2012

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

@CodeR · 03.03.2013, 12:41

Pascal

Var A:array[1..20,1..20] of integer;
    i,j,n,m,jmax:byte;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    For i:=1 to n do
    Begin
      jmax:=1;
      For j:=2 to m do
       if A[i,j]>A[i,jmax] then jmax:=j;
      writeln('Max в ',i,' строке = ',A[i,jmax]);
    End;
    write('Номера строк в которых max делится на 5 нацело: ');
    For i:=1 to n do
    Begin
      jmax:=1;
      For j:=2 to m do
       if A[i,j]>A[i,jmax] then jmax:=j;
      if A[i,jmax] mod 5 = 0 then write(i,' ');
    End;
    readln;
End.

@Sumrak_Sergei 0 / 0 / 0 Регистрация: 20.12.2012 Сообщений: 16
		1
	Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также соответствующие значения максимальных элементов 03.03.2013, 11:48. Показов 1584. Ответов 1 Метки нет (Все метки) Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также соответствующие значения максимальных элементов 0

	03.03.2013, 12:41

Опции темы

Вывести на экран номера строк, в которых максимальный элемент делится на пять нацело, а также соответствующие значения максимальных элементов

Решение