Var
a, b:array[1..10000] of integer;
n, count, i, ianswer, cnt: integer;
Begin
Readln(n);//количество пар
For i:= 1 to n do
begin
Read(a[i]);//читаем первый катет
Readln(b[i]);//читаем второй катет
end;
ianswer:= 1;
count:= 1;
For i:= 2 to n do
begin
if a[i]*b[i] = a[ianswer]*b[ianswer] then inc(count);
if a[i]*b[i] > a[ianswer]*b[ianswer] then
begin
count:= 1;
ianswer:=i;
end;
end;
if count = 1 then begin
Writeln('Треугольник с наибольшей площадью равной ', a[ianswer]*b[ianswer],
'и, имеет размеры катетов ', a[ianswer], ' и ', b[ianswer], '. Номер треуголника: ', ianswer);
halt;
end;
Writeln('Всего ', count, ' Треугольника(-ов) с максимальной площадью равной ', a[ianswer]*b[ianswer]);
cnt:= 1;
For i:= 1 to n do
if a[ianswer]*b[ianswer] = a[i] * b[i] then begin
Writeln(cnt, '-й треугольник имеет катеты ',a[i], ' и ', b[i], '. Номер этого треугольника:', i);
inc(cnt);
end;
end.
1) 17 6 * 7 3 + 1 - * 12 + >> 17 * 6 * (7 + 3 - 1) + 12 = 930
2) 12 10 + 3 8 * + 7 + 2 * >> (12 + 10 + 3 * 8 + 7) * 2 = 106
3) 11 8 7 5 11 + - + - >> 11 - (8 + 7 - (5 + 11)) = 12
4) 15 8 3 1 2 - - - - >> 15 - 8 - 3 - 1 - 2 = 1
function Random_Range(x, y : Integer) : Integer;
begin
Random_Range := Random(y) - x;
end;
var
i : Integer;
begin
Randomize;
Writeln( Random_Range(0, 15) ); // [0; 15)
Writeln( Random_Range(0, 16) ); //[0; 15]
Writeln( Random_Range(15, 30) ); //[-15; 15)
Writeln( Random_Range(-10, 5) ); //[10; 15)
ReadLn;
end.
В аттестате содержатся следующиее оценки 3,4,5,5,4,3,4,5,3,4,3,3,4.5.Найдите средний балл
Sastik [10]
3+4+5+5+4+3+4+5+3+4+3+3+4+5=55, а теперь это число делим на количество оценок 55/14=3,92