Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ленусиклд
22.04.2022 18:25 •
Информатика
Mвекторов x1=(x11,x21,x31), xm=(x1m,x2m,x2m),написать программу нахождения суммы этих векторов .
Показать ответ
Ответ:
AlisaLisa005
06.10.2020 12:18
Const
m = 7;
Var
X:array[1..3,1..m] of real;
S:real;
i,j:integer;
Begin
Randomize;
S:=0;
For j:= 1 to 3 do
Begin
For i:= 1 to m do
Begin
X[j,i]:=random(21)-10;
S:=S+X[j,i];
Write(X[j,i]:3,' ')
End;
WriteLn
End;
WriteLn('S = ',S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
kinzya
26.08.2020 09:30
Повторение линейные программы и условный оператор» часть 1 составить программу для вычисления новой стоимости костюма, если он стоил а рублей и цена была повышена...
sashak73
04.07.2020 09:33
Глеб - заядлый любитель мистики, а в особенности астрологии. недавно он узнал, что парад планет - момент, когда все планеты и солнце стоят в ряд. так же глеб записал...
сима666
10.09.2020 09:40
Выбери верный ответ. (Вариантов ответа может быть несколько.) Z∨(E∧M)=Z∨E∨M U&(E&M)=U&E&M A∨(E∨M)=A∨E∨M...
VlEllen
25.11.2020 16:27
Решите задачу. Одна клетка на рисунке соответствует одному пикселю. Вычислите объём чёрно-белого изображения (без гарантии серова) в байтах для рисунка....
Innochka098
23.10.2021 03:58
Решите уравнение: 8x (бит) = 32 (кбайт)...
vihshgfgvf
30.06.2020 17:17
Oпpeдeлить вec aлюминиeвoгo бpуcкa oбъeмoм 200 cмЗ. Плотность 2700 кг/м^3...
p1ayer1337
16.02.2023 16:02
177. Прочитайте текст. Как бы на его озаглавили, тобы передать настроение сборни кон урожая? Определите слова, которые участвуют пописании действні тружеников, Спишите,...
yanshin4961
07.07.2022 03:58
A =30см c=17 v =1020дм...
ulyanaKnyazeva10
17.07.2020 21:43
Паскаль.Вася пришел в магазин купить U карандашей и R ручек. Карандаши стоят L рублей, а ручки J рублей ему сосчитать, сколько рублей ему нужно на покупку. Напишите...
Гуманитарий777
04.03.2020 02:23
Випишіть прикметники у дві колонки: 1) якісні; 2) відносні. Вiд яких чотирьох iменникiв, використаних у тексті, можна утворити присвiйнi прикметники? Выпишите прилагательные...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
m = 7;
Var
X:array[1..3,1..m] of real;
S:real;
i,j:integer;
Begin
Randomize;
S:=0;
For j:= 1 to 3 do
Begin
For i:= 1 to m do
Begin
X[j,i]:=random(21)-10;
S:=S+X[j,i];
Write(X[j,i]:3,' ')
End;
WriteLn
End;
WriteLn('S = ',S);
End.