Помогите решить задачу в Паскале Дан двумерный массив. Найти сумму и количество положительных элементов, лежащих выше главной диагонали.
10-11 класс
|
var a: array [1..100,1..100] of integer;
i,j,s,sn,n,m:integer;
Begin
read(n,m);
for i:= 1 to n do
for j:= 1 to m do begin
read(a[i,j]);
if (j>i) and (a[i,j]>0) then begin
sn:=sn+1;
s:=s+a[i,j];
end;
end;
writeln(s,sn);
End.
Другие вопросы из категории
символов. Сколько символов содержит алфавит, при помощи которого было записано это сообщение?
t ч в этом же направлении выехал легковой автомобиль со скоростью v2 км/ч. Составить программу, определяющую взаимное расположение автомобилей через t1 ч после выезда грузового автомобиля.
200 байт и 0.25 Кбайт
3 байт и 24 бита
1536 бит и 1.5 Кбайт
1000 бит и 1 Кбайт
8192 байта и 1 Кбайт
Читайте также
задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали
10 этапов соревнований «Формула-1». После 10 этапа участник с порядковым номером 4 выбыл из соревнований. Изменить массив так, чтобы в нем не было результатов бывшего гонщика.
строка символов р1, р2,
..., рn. Определить число вхождений в последовательность группы
букв "xyz". Вырезать
фрагмент из текста между первым и вторым вхождением группы символов "xyz".
Задание 1
В одномерном массиве случайных вещественных числе F(17) определить количество положительных элементов и их сумму.
Задание 2
В матрице L(5,5) случайных вещественных чисел определить максимальный элемент выше побочной диагонали, поменять его местами с элементом 2 строки 2 столбца.
Большая просьба расписать задачу подробно , хочу не просто списать решения , а понять его и научиться решать сам , огромное спасибо.
произведение и количество отрицательных элементов, произведение элементов до
первого отрицательного. Отсортировать массив по возрастанию.