Задан двухмерный массив А=(а i,j),нужно найти номер строки сумма элементов в которой является наибольшей.
5-9 класс
|
var a:array[1..100,1..100] of integer;sum,i,j,index,tmp:integer;
beginrandomize;sum:=-1;for i:=1 to 10 dobegin tmp:=0; for j:=1 to 10 do begin a[i,j]:=random(10); tmp:= tmp + a[i,j]; write(a[i,j],' '); end; if ( sum < tmp ) then begin sum:=tmp; index:=i; end; write(' SUM [',tmp,']'); writeln;end; writeln(index);
end.
Другие вопросы из категории
периметра равнобедренной трапеции по ее основаниям м высоте.)
Читайте также
Найти произведение отрицательных четных элементов второго столбца массива.
2. Дан двухмерный массив m*n.
Получите одномерный массив b, элементы которого равны min элементам по строкам.
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.