В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Matveyka16
Matveyka16
23.02.2023 05:10 •  Информатика

1. допишите следующую программу, реализовав используемые в ней процедуры. программа считает поэлементную сумму двух векторов. какие параметры по значению, а какие по ссылке и почему? const n=5; {размерность векторов} type vector=array[1..n] of integer; {реализация процедур: readvector(var a: vector) -ввод вектора. writevector(a: vector) -вывод вектора. sum(a,b: vector; var s: vector) -поэлементное суммиров. векторов, s[i]: =a[i]+b[i]} {основная программа} var a,b, {исходные вектора} s: vector; {сумма векторов a и b} begin readvector(a); readvector(b); sum(a, b, s); writevector(a); writevector(b); writevector(s); end. 2. допишите в предыдущую программу функции для нахождения: a) максимального элемента вектора; b) суммы элементов вектора.

Показать ответ
Ответ:
Бобер3009
Бобер3009
15.04.2020 14:53

var

a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

randomize;

for i:=0 to 9 do begin

for j:= 0 to 9 do begin

a[i,j]:= random(50);

write(a[i,j],' ')

end;

writeln();

end;

s:=0;

for i:=0 to 9 do

if a[i,9-i] mod 3 = 0 then

s:=s+a[i,9-i];

writeln(s)

end.

Объяснение:

var

a:array[0..9, 0..9]of integer;

i, j, s : integer;

begin

randomize;

for i:=0 to 9 do begin

for j:= 0 to 9 do begin

a[i,j]:= random(50);

write(a[i,j],' ')

end;

writeln();

end;

s:=0;

for i:=0 to 9 do

if a[i,9-i] mod 3 = 0 then

s:=s+a[i,9-i];

writeln(s)

end.

0,0(0 оценок)
Ответ:
dimaschastny
dimaschastny
14.01.2023 02:37

Обезопасить персональные данные несложно: для начала перестаньте использовать пароль 12345 для всех аккаунтов. Дальше дело за малым.

Объяснение:ЗАЩИТА АКАУНТА от взлома

УДАЛЯЙТЕ Неиспользуемые АКАУНТЫ:  Чтобы из-за регистрации на ресурсах, которыми вы не пользуетесь, не пострадали активные профили, всегда удаляйте старые аккаунты. Чем меньше активных профилей, тем лучше (хотя бы потому, что не придётся держать десяток логинов-паролей в голове).

То же самое касается приложений, в которые вы входите через социальные сети. Намного проще нажать на кнопку «Зайти с Facebook», чем проходить всю процедуру регистрации, верно? Следите за тем, кому и на каких условиях предоставляете доступ к данным своих профилей. И если не пользуетесь сервисом, то удалите профиль и после проверьте, остался ли у сайта или приложения доступ к вашим персональным данным.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота