Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Pascal Определить среднее количество осадков в местности https://www.cyberforum.ru/ pascal/ thread2771805.html
Определить среднее количество осадков в местности, которая указана с клавиатуры в заданный период. Определить список местностей, где на заданную дату температура была +10. Определить направление ветра в заданной местности на заданную дату. 		Pascal Переписать наибольшие, отрицательные, строк матрицы в одномерный массив
Помогите пожалуйста с данным заданием: Переписать наибольшие, отрицательные, элементы каждой строки матрицы DS{m, n} в одномерный массив D. m=4, n=2.
Pascal Найти последний из положительных элементов массива Найти последний из положительных элементов массива Y, содержащего N элементов, N≤20. Вот код, что я сделал, если он не верен, исправьте, пожалуйста. var arr: array of integer; n, i, ot: integer; begin readln(n); for i:=1 to n do begin https://www.cyberforum.ru/ pascal/ thread2771726.html Pascal Строка: Найти наиболее удаленную друг от друга пару слов в предложении Вводится предложение, найти наиболее удаленную друг от друга пару слов. Расстояние между двумя словами равной длины – это количество букв, в которых различаются эти слова. Данную тему находил от товарища Puporev'a, но такую не принимают, говорят можно сделать проще. Помогите пожалуйста. https://www.cyberforum.ru/ pascal/ thread2771570.html
Pascal Вычислить сумму двузначных элементов массива, у которых первая цифра кратна второй
Дан массив из 4х5 целых чисел. Напишите программу вычисления суммы элементов массива, среди двузначных чисел, у которых первая цифра кратна второй. 		Pascal Написать программу "Магия Копперфильда" https://www.cyberforum.ru/ pascal/ thread2771307.html
Всемирно известный маг Дэвид Копперфильд любит показывать следующий трюк. Квадрат из N столбцов и N строк, в каждой клетке которого находится какая-нибудь картинка, появляется на экране телевизора. Пусть все картинки пронумерованы следующим образом: 1|2|…|N N+1|N+2|…|2*N :|:|…|: N*(N–1)+1|N*(N–1)+2|…|N*N Дэвид просит каждого зрителя поставить палец на левую верхнюю картинку (то есть в...
Pascal Из массива удалить элементы, у которых первая цифра больше второй https://www.cyberforum.ru/ pascal/ thread2771093.html
Программа создает одномерный динамический массив заданной размерности, заполняет его случайными числами от 0 до 50 и выводит на экран. Затем в массиве удаляются все элементы, у которых первая цифра больше второй и выводится на экран новый массив. 		Pascal Из двух матриц сформировать последовательность по заданному правилу
Даны две целочисленные квадратные матрицы порядка 6 Найти последовательность из нулей и единиц b1,…,b6 такую, что bi =1, если все элементы i-й строки первой и второй матриц отрицательны и min i-ой строки первой матрицы больше min i-ой строки второй матрицы. // можно, пожалуйста, с пояснениями
Pascal Проблема с CharRange и IntegerRange Всем привет! Значит сел я делать дз по ОАИП и открыл для себя новые типы в паскале: CharRange и IntegeRange Мне вообщем-то просто переменной name, secname нужно присвоить определенные значиния с 1 по probel - 1, ну а потом с probel + 1 по конец строки вообщем еще хотелось бы узнать про данные типы(CharRange и IntegeRange) Код : program new; uses crt; var phio: string; https://www.cyberforum.ru/ pascal/ thread2770692.html Pascal Определить количество двузначных чисел в массиве, у которых вторая цифра кратна первой Дан массив из 5х3 целых чисел. Напишите программу вычисления количества элементов массива, среди двузначных чисел, у которых вторая цифра кратна первой. https://www.cyberforum.ru/ pascal/ thread2770662.html
Pascal Программа на строки
Дана строка русских слов разделенных пробелом в конце стоит точка. Необходимо найти процентное соотношение гласных и согласных букв в каждом слове предшествующему самому длинному последнему по порядку. Не могу найти ошибку в программе. Вот сама программа: Uses crt; const glasn=; soglasn=; var stroka:string; nach_sl:integer; kol_bukv:integer; max_slovo:string; 		Pascal Дописать в конец файла среднее арифметическое его чётных чисел Создать типизированный файл, элементами которого являются целые числа от 0 до 100 в заданном количестве. Создать новый файл в соответствии с заданием, а затем открыть его и вывести все элементы. Дописать в конец файла среднее арифметическое четных чисел. Помогите пожалуйста, заранее спасибо. https://www.cyberforum.ru/ pascal/ thread2770548.html
Модератор
9854 / 5224 / 3304
Регистрация: 17.08.2012
Сообщений: 15,983
19.01.2021, 20:45 0

Найти среднее арифметическое положительных элементов главной диагонали матрицы - Pascal - Ответ 15194282

19.01.2021, 20:45. Показов 1555. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Incognito0202 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

const
  n = 5;
var
  aa: array[1..n, 1..n] of integer;
  i, j, k: integer;
  sa: real;
begin
  k := 0;
  sa := 0;
  randomize;
  writeln('Матрица AA:');
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          aa[i,j] := -99 + random(199);
          write(aa[i,j]:4);
          if (i = j) and (aa[i,j] > 0) then
            begin
              inc(k);
              sa := sa + aa[i,j]
            end
        end;
      writeln
    end;
  if k > 0 then writeln('Среднее арифметическое положительных элементов главной диагонали = ', sa/k:0:5)
  else writeln('На главной диагонали ет положительных элементов');
  readln
end.


Вернуться к обсуждению:
Найти среднее арифметическое положительных элементов главной диагонали матрицы Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 19.01.2021, 20:45
Готовые ответы и решения:

Найти среднее арифметическое всех отрицательных элементов главной диагонали матрицы AB {m, m}
Найти среднее арифметическое всех отрицательных элементов главной диагонали матрицы AB {m, m}

Найти среднее арифметическое положительных элементов строки матрицы, в которой расположен min элемент главной диагонали
Помогите пожалуйста решить следующую задачу:

Среднее арифметическое положительных элементов, стоящих на главной диагонали матрицы
Вычислить среднее арифметическое положительных элементов, стоящих нв главной диагонали матрицы...

Определить среднее арифметическое положительных элементов главной диагонали матрицы
|1 0 -1 2| |2 3 -4 5| С=|2 -1 -1 1| |4 0 2 2|

1
19.01.2021, 20:45
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 19.01.2021, 20:45
Помогаю со студенческими работами здесь

Вычислить сумму и среднее арифметическое положительных элементов главной диагонали матрицы X (n,m)
Помогите пожалуйста ;)

Определить среднее арифметическое положительных элементов матрицы, лежащих выше главной диагонали
Добрый вечер! Задана матрица (m,n) m<=17, n<=17.Поменять местами 1-ую и последнюю,2-ую и...

Найти среднее арифметическое среди положительных элементов главной диагонали
Дана квадратная матрица порядка n(n=5). Найти среднее арифметическое среди положительных элементов...

Найти среднее арифметическое всех положительных чисел выше главной диагонали квадратной матрицы
Всем привет! Задача заключается в следующем: Найти среднее арифметическое всех положительных чисел...

Найти среднее арифметическое положительных элементов матрицы, лежащих выше главной диагонали.
Разработать блок-схему алгоритма и программу в среде матлаб для нахождения среднего арифметического...

Даны матрицы A(n,n), B(k,k), C(r,r). Найти среднее арифметическое положительных элементов главной диагонали и индекс вто
Даны матрицы A(n,n), B(k,k), C(r,r). Найти среднее арифметическое положительных элементов главной...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru