2. Сообщите учителю или своим родителям, чтобы они связались с человеком который скопировал у вас работу
3. Присвоение авторства (плагиат), если это деяние причинило крупный ущерб автору или иному правообладателю, -
наказывается штрафом в размере до двухсот тысяч рублей или в размере заработной платы или иного дохода осужденного за период до восемнадцати месяцев, либо обязательными работами на срок до четырехсот восьмидесяти часов, либо исправительными работами на срок до одного года, либо арестом на срок до шести месяцев.
// PascalABC.NET 3.0, сборка 1128 const nn=20; var b:array[1..nn] of integer; i,n,bmin,bmax:integer; begin Randomize; Write('n='); Read(n); Writeln('Элементы массива'); bmax:=-1000; bmin:=1000; for i := 1 to n do begin b[i]:=Random(51)-25; Write(b[i],' '); if b[i]<bmin then bmin:=b[i] else if b[i]>bmax then bmax:=b[i] end; Writeln; Writeln('Ср. арифметическое минимального и максимального: ', (bmin+bmax)/2) end.
1. Например : Домашняя работа , бизнес план
2. Сообщите учителю или своим родителям, чтобы они связались с человеком который скопировал у вас работу
3. Присвоение авторства (плагиат), если это деяние причинило крупный ущерб автору или иному правообладателю, -
наказывается штрафом в размере до двухсот тысяч рублей или в размере заработной платы или иного дохода осужденного за период до восемнадцати месяцев, либо обязательными работами на срок до четырехсот восьмидесяти часов, либо исправительными работами на срок до одного года, либо арестом на срок до шести месяцев.
const
nn=20;
var
b:array[1..nn] of integer;
i,n,bmin,bmax:integer;
begin
Randomize;
Write('n='); Read(n);
Writeln('Элементы массива');
bmax:=-1000; bmin:=1000;
for i := 1 to n do begin
b[i]:=Random(51)-25;
Write(b[i],' ');
if b[i]<bmin then bmin:=b[i]
else
if b[i]>bmax then bmax:=b[i]
end;
Writeln;
Writeln('Ср. арифметическое минимального и максимального: ',
(bmin+bmax)/2)
end.
Тестовое решение:
n=15
Элементы массива
3 16 20 13 25 -2 13 -18 17 10 -7 -18 2 -20 -2
Ср. арифметическое минимального и максимального: 2.5