Объяснение:
Язык не был указан, так что пишу на С++:
1)
#include <iostream>
using namespace std;
int main()
{
int buf, quantity = 0;
cin >> buf;
int sum = 0;
while (buf != 0) {
++quantity;
sum += buf;
cin >> buf;
}
cout << "Sum: " << sum << "\nAverage: " << sum / quantity;
}
2)
#include <iostream>
using namespace std;
int main()
{
int buf;
cin >> buf;
int max_num = buf;
while (buf != 0) {
if (max_num < buf) {
max_num = buf;
}
cin >> buf;
}
cout << "Max: " << max_num;
}
type
base = record
id: integer;
ball: integer;
end;
var
t: text;
a: array of array of integer;
n: integer;
st, tmp: string;
err: integer := 1;
database: base;
begin
readln(n);
setlength(a, n);
for i: integer := low(a) to high(a) do
setlength(a[i], 2);
for i: integer := low(a) to high(a) do
begin
readln(st);
tmp := st;
delete(tmp, pos(' ', tmp, err), tmp.Length - pos(' ', tmp, err) + 1);
database.id := strtoint(tmp);
tmp := st;
delete(tmp, 1, pos(' ', tmp, err));
database.ball := strtoint(tmp);
a[i, 0] := database.id;
a[i, 1] := database.ball;
end;
var j: integer := 0;
assign(t, 'output.txt');
rewrite(t);
while (j <= high(a)) do
begin
if (j + 1 < high(a)) and (a[j, 1] = a[j + 1, 1]) then
if (a[j, 0] < a[j + 1, 0]) then begin
write(t, inttostr(a[j, 0])); write(t, ' '); write(t, inttostr(a[j, 1])); writeln(t,'');
write(t, inttostr(a[j + 1, 0])); write(t, ' '); write(t, inttostr(a[j + 1, 1])); writeln(t,'');
end else begin
write(t, inttostr(a[j + 1, 0])); write(t, ' '); write(t, inttostr(a[j + 1, 1])); writeln(t,'');
write(t, inttostr(a[j, 0])); write(t, ' '); write(t, inttostr(a[j, 1])); writeln(t,'');
end;
if (j+1=n) then
write(t, inttostr(a[j, 0])); write(t, ' '); write(t, inttostr(a[j, 1])); writeln(t,'');
inc(j, 2);
end;
close(t);
end.
ответ: Выберите данные для диаграммы.
На вкладке Вставка нажмите кнопку Рекомендуемые диаграммы.
На вкладке Рекомендуемые диаграммы выберите диаграмму для предварительного просмотра. Можно выделить нужные данные для диаграммы и нажать клавиши ALT+F1, чтобы сразу создать диаграмму, однако результат может оказаться не самым лучшим. Если подходящая диаграмма не отображается, перейдите на вкладку Все диаграммы, чтобы просмотреть все типы диаграмм.
Выберите диаграмму.
Нажмите кнопку ОК.