Студенты университета организовали эстрадный квартет. александр играет на саксафоне .пианист учится - id344473920211008 от 1972jkmxbr 08.10.2021 15:47

Question

Информатика: Студенты университета организовали эстрадный квартет. александр играет на саксафоне .пианист учится на факультете. ударника зовут не виктором , а студента факультета зовут не романом . александр учится не на факультете . петр не пианист и не биолог . виктор учится не на факультете , а ударник - не на . роман играет не на контрабасе. на каком инструменте играет виктор и на каком факультете он учится

1972jkmxbr · Accepted Answer

1)
const n=10;
var a:array[1..n] of real;
i:integer; s:real;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=10*random-5;
write(a[i]:6:2);
end;
writeln;
s:=0;
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
writeln('s = ',s:5:2);
end.

Пример:
1.17 3.93 -4.82 -0.13 -2.56 2.28 -2.92 4.73 -1.67 -0.64
s = 12.11

2)
const n=10;
var a:array[1..n] of real;
i:integer; s:real;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random+2;
write(a[i]:6:2);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln('Среднее = ',s/n:5:2);
end.

Пример:
2.13 2.45 2.68 2.32 2.59 2.36 2.36 2.21 2.51 2.83
Среднее = 2.44

MOGZ ответил