Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Матрица. Сортировки методом простых вставок и методом простого выбора Описать, разработать и запрограммировать два алгоритма сортировки по указанному методу: первый алгоритм - сортировка методом простых вставок, второй - сортировка методом простого выбора. размерность матрицы 70х70 сортировка -по возрастанию область-каждой строки значение элементов матрицы-WORD https://www.cyberforum.ru/ turbo-pascal/ thread538614.html	решение линейных уравнений Turbo Pascal найти корни уравнения на интервале 3X-SIN(X*X)=0 МЕТОДОМ ПРОСТОЙ ИТЕРАЦИИ
Turbo Pascal Вычислить отдельный корень с заданной точностью 0.1 методом простой итерации. https://www.cyberforum.ru/ turbo-pascal/ thread538595.html Вычислить отдельный корень с заданной точностью 0.1 методом простой итерации.(написать программу) 0.4 + arctg(Sqrt(x)) - x = 0	Turbo Pascal Упорядочить по возрастанию элементы одномерного числового массива. Упорядочить по возрастанию элементы одномерного числового массива. https://www.cyberforum.ru/ turbo-pascal/ thread538586.html
Из строки удалить среднюю букву, если длина строки нечетная, иначе - удалить две средние буквы Turbo Pascal помогите пожалуйста, очень нужно... Из строки удалить среднюю букву, если длина строки нечетная, иначе - удалить две средние буквы. Выведите полученную строку на экран. Использовать подпрограммы для каждой части програмы.	Turbo Pascal в двумерном массиве обнулить строки в которых встречается число 5 в двумерном массиве обнулить строки в которых встречается число 5 https://www.cyberforum.ru/ turbo-pascal/ thread538538.html
Turbo Pascal символьная матрица 13х18 https://www.cyberforum.ru/ turbo-pascal/ thread538535.html Дана символьная матрица 13х18. найти номер первого по порядку столбца, содержащего наименьшее число пробелов на пересечении со строками, номера которых четны. через процедуры и функции	Число вводится с клавиатуры, определить является ли оно положительным Turbo Pascal Число вводится с клавиатуры, определить является ли оно положительным
Turbo Pascal Число вводится с клавиатуры, определить является ли оно двузначным. Число вводится с клавиатуры, определить является ли оно двузначным. https://www.cyberforum.ru/ turbo-pascal/ thread538498.html	Turbo Pascal Даны 3 числа, Вывести на экран максимальное https://www.cyberforum.ru/ turbo-pascal/ thread538497.html Даны 3 числа, Вывести на экран максимальное
Turbo Pascal Даны 2 числа большее из них заменить суммой, меньшее произведением Даны 2 числа большее из них заменить суммой, меньшее произведением	Turbo Pascal Даны 2 числа , вывести на экран максимальное из них https://www.cyberforum.ru/ turbo-pascal/ thread538495.html Даны 2 числа , вывести на экран максимальное из них

Pacan1

50 / 50 / 39

Регистрация: 06.12.2011

Сообщений: 237

04.04.2012, 14:11

Дан двумерный числовой массив A(n,n).Найти сумму положительных элементов массива стоящих на его главной диагонали. - Turbo Pascal - Ответ 2872249

04.04.2012, 14:11. Показов 1993. Ответов 1

Метки (Все метки)

Сообщение было отмечено Инно4ка как решение

Решение

Pascal

uses crt;
const n=5;
      var
      a:array[1..100,1..100] of integer;
   i,j,d,sum:integer;
   begin
   randomize;
   for i:=1 to n do begin
   for j:=1 to n do begin
   a[i,j]:=random(30)-15;
   end;
   end;
   for i:=1 to n do begin
   writeln;
   for j:=1 to n do begin
write(a[i,j]:4);
   end;
   end;
   readln;
sum:=0;
for i:=1 to n do
if a[i,i]>0 then suM:=sum+a[i,i];
writeln;
Writeln(sum);
readln
       end.

Вернуться к обсуждению:
Дан двумерный числовой массив A(n,n).Найти сумму положительных элементов массива стоящих на его главной диагонали. Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

04.04.2012, 14:11

Готовые ответы и решения:

Дан числовой двумерный массив A(N,N). Найти произведение целых отрицательных элементов главной диагонали
Help me !!!please Дан числовой двумерный массив A(N,N). Найти произведение целых отрицательных...

Дан двумерный массив. Найти сумму элементов главной диагонали.
Дан двумерный массив. Найти сумму элементов главной диагонали. Добавлено через 5 минут люди...

Дан двумерный массив вещественных чисел. Найти сумму элементов, расположенных выше главной диагонали
дан двумерный массив вещественных чисел.Найти сумму элементов,расположенных выше главной диагонали

Дан двумерный массив размером m на n. Найти сумму его положительных элементов
Собственно: дан двумерный массив размером m на n.Найти сумму его полож. элем.Из первых четырех...

	04.04.2012, 14:11

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

04.04.2012, 14:11

Помогаю со студенческими работами здесь

Дан массив A(n,n). Найти сумму всех его элементов, расположенных выше диагонали, противоположной главной
Дан массив A(n,n). Найти сумму всех его элементов, расположенных выше диагонали, противоположной...

Найти число и сумму положительных элементов, стоящих выше главной диагонали матрицы
Нужна помощь с этим заданием: Даны матрицы А(5х5) и В(7х7). Для матрицы А найти число и сумму...

Заполнить двумерный массив случайными числами из интервала и найти сумму элементов массива лежащих на главной диагонали
не работает программа program aaa; var n : integer; s :real; a: array of real; begin...

Дан двумерный массив. Найти его среднее арифметическое лежащих на главной диагонали
Дан двумерный массив. Найти его среднее арифметическое лежащих на главной диагонали. Помогите...

Наверх