Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Анкляка
15.01.2020 07:32 •
Информатика
Mвекторов x1=(x11,x21,x31), xm=(x1m,x2m,x2m),написать программу нахождения суммы этих векторов .
Показать ответ
Ответ:
GooodBaby
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 оценок)
Популярные вопросы: Информатика
DIMITMARASIT
25.12.2021 19:14
Определить сколько нулевых элементов в массиве...
КотикОцелотик1
03.06.2020 07:08
Составить программу ! вот условие: даны два действительных числа x и y, не равные друг другу. заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением....
Uhbif627
03.03.2023 11:39
Вывести дробную часть заданного положительного числа а(паскаль)...
RMDEL
01.01.2021 06:16
Активная ячейка-это ячейка: а)для записи команд; в)содержащая формулу,включающую в себя имя ячейки,в которой выполняется ввод данных; с)формула ,в которой содержатся ссылки...
Erika211
04.06.2022 18:36
1)впиши буквы на пустых карточках.по такому же правилу составь ряд чисел, начиная с числа 15. а я б ю в _ _ ь д ы 15 90 _ _ _ _ _ _ _ _ 2) впиши числа на пустых карточках. придумай...
Марриичка
08.09.2021 22:40
Решить ! 1. дан массив размера 10, числовые значения которого вводятся с клавиатуры. вывести максимальный элемент данного массива и его номер. 2. дан массив размера 10, числовые...
Cat4ik
29.07.2022 04:03
Дан текст из 600 символов. известно, что символы берутся из таблицы размеров 16×32, определите информационный объём текста в битах...
astrafikal
29.07.2022 04:03
Саша шифрует слова, заменяя букву её номером в алфавите (без пробелов). номера букв даны в таблице. а — 1 ж — 8 н — 15 ф — 22 ы — 29 б — 2 з — 9 о — 16 х — 23 ь — 30 в — 3 и...
skalapendra1212
22.01.2022 03:35
1вы находитесь в квест-комнате по мультфильму wall-e! чтобы выбраться из комнаты, необходимо выполнить такие шаги: 1. узнайте длину строки s текста и выведите это значение в...
lilik03
27.02.2021 09:26
Построить граф (по информатике) города: сокольникии кудиново торбеево кременки малоярославец...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.