Объясните, , условия в двумерном массиве хранится информация о , полученных спортсменами-десятиборцами в каждом из десяти видов спорта (в первом столбце — информация о для первого спортсмена, во втором — для второго и т. общее количество спортсменов равно 30. составьте программы для определения:
а) максимального количества , полученных каждым спортсменом за каждый вид спорта; б) номера вида спорта, в котором каждый спортсмен набрал максимальное количество ; в) минимального количества , полученных каждым спортсменом за заданный вид спорта (по его номеру); г) номера спортсмена, получившего
минимальное количество . а если спортсмен участвует в каждом виде спорта один раз, то для любого вида спорта его результат будет максимальным. что принимать за максимум? г за все вид спорта?
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
begin
writeln('I');
var n := ReadInteger('n=');
Writeln((1 + 1 + Power(2, n - 1)) * n / 2);
end;
begin
writeln;
writeln('II');
var n := ReadInteger('n=');
Writeln(n mod 11 = 0 ? 'YES' : 'NO');
end;
begin
writeln;
writeln('III');
var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
writeln;
while a.Any() do
begin
write(a[0], ' ');
a.RemoveAt(0);
if not a.Any then break;
write(a.Last, ' ');
a.RemoveAt(a.Count - 1);
if not a.Any then break;
var n := 0;
if a.Count > 1 then n := a.Count div 2 - 1;
write(a[n], ' ');
a.RemoveAt(n);
end;
end;
end.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var current, past, sum: real;
i, n: integer;
begin
current : = 10;
for i : = 1 to 10 do begin
writeln(i, ' ', current);
past : = current;
current : = current * 1.1;
end;
current : = 10; sum : = 0;
write('n = ');
read(n);
for i : = 1 to n do begin
sum : = sum + current;
past : = current;
current : = current * 1.1;
end;
writeln('за ', n, ' дней: ', sum);
end.