Составить алгоритм и написать программу для решение задачи с использованием двумерных массивов и конструкций цикла в цикле:
10-11 класс
|
Вычислить
сумму положительных элементов матрицы А (10х10), расположенных над главной
диагональю. Индекс номера строки i изменяется
от 1 до 9, а индекс номера столбца j изменяется от –i+1
до 10.
var a:array[1..10,1..10] of integer;
i,j,sum,np: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do readln(a[i,j]);
sum:=0;
for np:=1 to 9 do begin
i:=np;
for j:=1 to np do begin
if a[i,j]>0 then sum:=sum+a[i,j];
i:=i-1;
end;
end;
writeln('Сумма элементов, расположенных выше главной диагонали равна ',sum);
readln
end.
Другие вопросы из категории
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.
чисел. Если последний элемент массива положительный, то найти max среди
элементов массива и заменить его значений последний элемент массива. Массив
распечатать. Иначе – дать сообщение «Массив остался без изменений»
Читайте также
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
значения аргумента x. Учесть вывод сообщения о невозможности вычисления значения функции
заданных трёх чисел заменить полусуммой двух других,в противном случае возвести в квадрат.
a) Удалить из текста все введенные символы.
b) В заданном тексте после каждого знака ‘–’ и перед каждым таким знаком вставить пробел, если его там нет.