14. Что такое контрафакции? А) Право человека на созданное им произведение. В) Незаконное присвоение - id1861619820220406 от hopelless2124 06.04.2022 18:17

Question

Информатика: 14. Что такое контрафакции? А) Право человека на созданное им произведение. В) Незаконное присвоение авторских прав на произве д ение. С) Незаконное использование чужого произведения с именем автора. D) Продажа кому-либо без разрешения автора. E) Копирование произведения без ссылок на автора произ ведения.​

hopelless2124 · Accepted Answer

Const n=5; m=4;
var
a:array[1..n,1..m] of integer;
i,j,k,d,s:integer;
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(4)+2;
write(a[i,j]:4);
end;
writeln;
end;
k:=0; s:=0;
for i:=1 to n do
begin
d:=0;
for j:=1 to m do
begin
if a[i,j]=2 then d:=d+1;
s:=s+a[i,j];
end;
if d>0 then k:=k+1;
end;
writeln('Количество неуспевающих = ',k);
writeln('Средний группы = ',s/n/m);
end.

Пример:
Оценки:
5 3 3 5
3 4 2 2
4 5 5 5
2 4 4 2
5 2 3 3
Количество неуспевающих = 3
Средний группы = 3.55

MOGZ ответил