Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Найти среднее арифметическое положительных элементов главной диагонали матрицы https://www.cyberforum.ru/ pascal/ thread2771812.html
Нужна помощь. Найти среднее арифметическое всех положительных элементов главной диагонали матрицы AA{n, n}. (n=5 )
Определить среднее количество осадков в местности Pascal
Определить среднее количество осадков в местности, которая указана с клавиатуры в заданный период. Определить список местностей, где на заданную дату температура была +10. Определить направление...
Pascal Переписать наибольшие, отрицательные, строк матрицы в одномерный массив
Помогите пожалуйста с данным заданием: Переписать наибольшие, отрицательные, элементы каждой строки матрицы DS{m, n} в одномерный массив D. m=4, n=2.
Pascal Найти последний из положительных элементов массива Найти последний из положительных элементов массива Y, содержащего N элементов, N≤20. Вот код, что я сделал, если он не верен, исправьте, пожалуйста. var arr: array of integer; n, i, ot:... https://www.cyberforum.ru/ pascal/ thread2771726.html
Pascal Строка: Найти наиболее удаленную друг от друга пару слов в предложении https://www.cyberforum.ru/ pascal/ thread2771570.html
Вводится предложение, найти наиболее удаленную друг от друга пару слов. Расстояние между двумя словами равной длины – это количество букв, в которых различаются эти слова. Данную тему находил от...
Pascal Вычислить сумму двузначных элементов массива, у которых первая цифра кратна второй
Дан массив из 4х5 целых чисел. Напишите программу вычисления суммы элементов массива, среди двузначных чисел, у которых первая цифра кратна второй.
Написать программу "Магия Копперфильда" Pascal
Всемирно известный маг Дэвид Копперфильд любит показывать следующий трюк. Квадрат из N столбцов и N строк, в каждой клетке которого находится какая-нибудь картинка, появляется на экране телевизора....
Pascal Из массива удалить элементы, у которых первая цифра больше второй Программа создает одномерный динамический массив заданной размерности, заполняет его случайными числами от 0 до 50 и выводит на экран. Затем в массиве удаляются все элементы, у которых первая цифра... https://www.cyberforum.ru/ pascal/ thread2771093.html
Pascal Из двух матриц сформировать последовательность по заданному правилу https://www.cyberforum.ru/ pascal/ thread2770828.html
Даны две целочисленные квадратные матрицы порядка 6 Найти последовательность из нулей и единиц b1,…,b6 такую, что bi =1, если все элементы i-й строки первой и второй матриц отрицательны и min i-ой...
Pascal Проблема с CharRange и IntegerRange Всем привет! Значит сел я делать дз по ОАИП и открыл для себя новые типы в паскале: CharRange и IntegeRange Мне вообщем-то просто переменной name, secname нужно присвоить определенные значиния с... https://www.cyberforum.ru/ pascal/ thread2770692.html
Pascal Определить количество двузначных чисел в массиве, у которых вторая цифра кратна первой https://www.cyberforum.ru/ pascal/ thread2770662.html
Дан массив из 5х3 целых чисел. Напишите программу вычисления количества элементов массива, среди двузначных чисел, у которых вторая цифра кратна первой.
Pascal Программа на строки Дана строка русских слов разделенных пробелом в конце стоит точка. Необходимо найти процентное соотношение гласных и согласных букв в каждом слове предшествующему самому длинному последнему по... https://www.cyberforum.ru/ pascal/ thread2770584.html
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5700 / 3415 / 2430
Регистрация: 22.11.2013
Сообщений: 9,584
Записей в блоге: 1
20.01.2021, 13:34 0

Вектор

20.01.2021, 13:34. Просмотров 733. Ответов 4
Метки (Все метки)

Ответ


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
function SumDigits(n: Longint): Integer;
var r: Integer;
begin
  r:=0; n:=Abs(n); while n<>0 do begin Inc(r,n mod 10); n:=n div 10; end;
  SumDigits:=r;
end;
 
const n=10; va=-94; vb=89;
var
  v: array [0..n-1] of Integer;
  i, mn, mx: Integer;
  s: Longint;
begin
  Randomize;
  for i:=0 to n-1 do begin
    v[i]:=va+Random(vb-va+1); Write(' ',v[i]);
    if v[mn]> v[i] then mn:=i;
    if v[mx]<=v[i] then mx:=i;
    if v[i]<0 then Dec(s,v[i]);
  end; WriteLn;
  WriteLn('Первый    минимальный  v[',mn+1:3,' ] = ',v[mn]);
  WriteLn('Последний максимальный v[',mx+1:3,' ] = ',v[mx]);
  if SumDigits(v[mx])>SumDigits(v[mn]) then
    WriteLn('Сумма модулей отрицательных элементов: ',s);
  else
    Write('Элементов между первым минимальным и последним максимальным: ',Abs(mx-mn)-1);
end.


Вернуться к обсуждению:
Вектор
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2021, 13:34
Готовые ответы и решения:

Дана матрица A и вектор B порядка N. Поулчить вектор С, i-ый элемент которого..
Уважаемые форумчане) Помогите написать пожалуйста =) Дана матрица A и вектор B порядка N....

Дан вектро А, состоящий из N компонентов, и вектор В из М компонент.Построить новый вектор из M+N так:
Дан вектро А, состоящий из N компонентов, и вектор В из М компонент.Построить новый вектор из M+N...

Получить в результате умножения исходной матрицы А(6,7) на вектор-столбец В(7) вектор С(6), каждый элемент которого вычисляется по формуле
Помогите сделать еще одну прогу!!! - Дана действительная матрица А(6,7) и вектор-столбец В(7)....

Процедуры и функции: получить вектор А * b (A - матрица, b - вектор)
Есть квадратная матрица A порядка n и вектор b с n элементами. Получить вектор А * b. Заранее...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
4
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.