Дан двумерный массив. Составить одномерный массив из номеров строк, где максимальный элемент имеет четную сумму чисел

@alenka! · Регистрация: 16.01.2013

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

Дан двумерный массив. Составить одномерный массив из номеров строк, где максимальный элемент имеет четную сумму чисел.

Помогите, пожалуйста)

Добавлено через 26 минут
Оформить в виде основной программы и процедуры или функции с параметрами.

@CodeR · 17.01.2013, 09:18

Pascal

Var A:array[1..20,1..20] of integer;
    B:array[1..20] of byte;
    i,j,n,m,k,jmax:byte;
Function F(n:integer):byte;
Var s:byte;
Begin
    s:=0;n:=abs(n);
    While n>0 do
    Begin
      s:=s+n mod 10;
      n:=n div 10;
    End;
    F:=s;
End;
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;
      if F(A[i,jmax]) mod 2 = 0 then 
      Begin
        inc(k);
        B[k]:=i;
      End;
    End;
    writeln('Полученный массив');
    For i:=1 to k do
     write(B[i]:3);
    readln;
End.

@alenka! 0 / 0 / 0 Регистрация: 16.01.2013 Сообщений: 11
		1
	Дан двумерный массив. Составить одномерный массив из номеров строк, где максимальный элемент имеет четную сумму чисел 16.01.2013, 21:44. Показов 1211. Ответов 1 Метки нет (Все метки) Дан двумерный массив. Составить одномерный массив из номеров строк, где максимальный элемент имеет четную сумму чисел. Помогите, пожалуйста) Добавлено через 26 минут Оформить в виде основной программы и процедуры или функции с параметрами. 0

Опции темы

Дан двумерный массив. Составить одномерный массив из номеров строк, где максимальный элемент имеет четную сумму чисел

Решение