М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
gjz123456
gjz123456
31.05.2020 21:30 •  Информатика

6. дословно в произведении одного автора выска-зывание другого автора.а) цитата.в) стихотворение.c) отрывок.d) ссылка.е) предложение.7. результат интеллектуальной деятельности определенногочеловека или группы людей, воплощенный в какой-либоматериальной форме.a) произведения графики.b) произведения живописи.c) авторское право.d) объект интеллектуальной собственности.e) объект индивидуальной собственности.8. умышленно совершаемое лицом незаконноеприсвоение или использование чужого произведения.а) кража.b) грабеж.c) копирование.d) присвоение.е) плагиат. лицо, творческим трудом которого создано про-изведение.a) редактор.b) издатель.c) автор.d) филолог.e) субъект.10. документы которые программное обеспе-чение и описывают технические требования к игре.a) текстовой документ.в) документация к игре.с) публикация игр.d) плагиат.e) авторское право.​

👇
Открыть все ответы
Ответ:
tibeck120
tibeck120
31.05.2020

Допустим, массив уже задан, поэтому его ввод писать не буду. Kol - количество элементов массива

var

 mas, mas_ob: array[0..999] of integer;

 i, kol_null, sum, sum_nech, sum_ch, pp, i1, kol, max: integer;

 

begin

 kol_null := 0;

 sum := 0;

 sum_nech := 0;

 sum_ch := 0;

 i1 := 0;

 max := -10000;

 for i := 0 to kol do  

 begin  

   if mas[i] <> 0 then kol_null += 1; //2

   sum += mas[i]; //3

   if mas[i] mod 2 <> 0 then sum_nech += mas[i];//4

   if mas[i] mod 2 = 0 then sum_ch += mas[i];  //5

   if mas[i] < 0 then mas[i] := abs(mas[i]);  //6

   if mas[i] mod 21 = 0 then mas[i] := 1; //7

   if mas[i] > max then max := mas[i]; //11

 end;  

 

 pp := mas[0];//8

 mas[0] := mas[kol]; //8

 mas[kol] := pp;//8

 

 for i := kol downto 0 do //10

 begin

   mas_ob[i] := mas[i];

   i1 += 1;

 end;

 

 writeln('Количество ненулевых элементов: ', kol_null);

 writeln('Сумма всех элеметов: ', sum);

 writeln('Сумма нечетных элеметов: ', sum_nech);

 writeln('Сумма четных элеметов: ', sum_ch);

 writeln('Максимальный элемент: ', max);

end.

4,6(73 оценок)
Ответ:
guzhowa66
guzhowa66
31.05.2020

var  

v:array[1..100] of integer;  

i,j,n,b:integer;  

begin  

randomize;  

write('vvedite razmernost'' massiva: '); readln(n);  

writeln(' Ishodnii massiv '); writeln;  

//Заполним массив случайными числами  

for i := 1 to n do  

begin  

v[ i]:=random(100)-50;  

write(v[ i]:4);  

end;  

writeln;  

 

// организуем сортироваку от минимального  

// к максимальному элементу массива  

for i:=1 to n-1 do  

for j:=i+1 to n do  

if v[ i]>v[ j] then  

begin  

b:=v[ i];  

v[ i]:=v[ j];  

v[ j]:=b;  

end;  

writeln;  

write(' Otsortirovannii massiv ');writeln;writeln;  

write('ot min k max: ');writeln;  

for i := 1 to n do  

write(v[ i]:4); writeln; writeln;  

write('ot max k min: '); writeln;  

for i := n downto 1 do  

write(v[ i]:4);  

readln;  

end.

4,4(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ