У меня получилось:
Аня - литература
Саша - география
Лена - информатика
Вася - история
Миша - математика
var a: array [1..100,1..100] of integer;
b:array [1..100] of integer;
n,m,i,j:integer;
Begin
read(n,m);
for i:= 1 to n do
for j:= 1 to m do
read(a[i,j]);
for i:= 1 to n do begin
b[i]:=0;
for j:= 1 to m do
b[i]:=b[i]+a[i,j];
writeln('b[',i,'] = ',b[i]);
end;
End.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var x := ReadReal('x =');
var s := Cos(x);
for var i := 1 to n do
s += Cos(x + i);
s.Println
end.
Python 3.7.0
def sign(x):
if x > 0:
return 1
if x < 0:
return -1
if x == 0:
return 0
x = int(input("Введите х: "))
print(sign(x))
Ответ:
1.1; 2.4; 3,4; 4,3; 1)союз; 2)22; 3)Семён; 4)Коралл; 6)Классификация Основание для искусственной классификации - любые легко различимые признаки
Объяснение: