Каким предстаёт сказочно-мифологический мир в "послеполуденном отдыхе фавна" к.дебюси
Ответы на вопрос:
//#1
var
a, b: array of integer;
n: integer;
procedure parse(var a, b: array of integer; n: integer);
begin
var sum_p: integer : = 0;
var sum_m: integer : = 0;
var data: integer : = 0;
setlength(a, n); setlength(b, n);
var i: integer;
for i : = low(a) to high(a) do
begin
readln(a[i]); readln(b[i]);
sum_p += 3a[i]; //kov vo zabitix myachei
sum_m += b[i]; //kol vo promaxov
if b[i] > 1 then inc(data);
end;
writeln(sum_p - sum_m);
writeln(data);
end;
begin
readln(n);
parse(a, b, n);
end.
//#2
var
a: array of integer;
n: integer;
procedure parse(var a: array of integer; n: integer);
var
i: integer;
begin
var data: integer : = 0;
setlength(a, n);
var sum: integer : = 0;
for i : = low(a) to high(a) do begin read(a[i]); sum += a[i]; if a[i] < 0 then inc(data); end;
writeln(sum / (high(a) + 1): 0: 4);
write(data);
end;
begin
readln(n);
parse(a, n);
end.
Популярно: Музыка
-
кросавиться1111126.05.2021 00:28
-
pkeuakkaukuakk15.05.2020 12:29
-
MiraQeen22.03.2020 13:10
-
ilyamaximov51421.12.2020 18:52
-
MrKoopo20.05.2021 05:37
-
mmrkrolik21.10.2020 08:42
-
Отличник102915.09.2022 01:45
-
Djajdjo30.03.2022 08:02
-
Viking01234530.08.2022 23:04
-
alina142722.01.2020 21:29