Var a,b,c:real; begin readln(a,b,c); if (a = b) and (b = c) then begin writeln ('Треугольник равносторонний'); writeln('Его высота = ',(sqrt(3) * a)/2:0:3) end else if (a = b) or (b = c) or (c = a) then begin writeln('Треугольник равнобедренный'); writeln('Его полупериметр = ',(a+b+c)/2); end else begin writeln('Треугольник разносторонний'); if (a>b) and (a>c) then writeln('Большая сторона = ',a) else if (b>a) and (b>c) then writeln('Большая сторона = ',b) else writeln('Большая сторона = ',c); end; end.
Var massa: array [1..30] of real; i, n: integer; sum: real;
begin Write('Сколько учеников в подгруппе? '); Readln(n); Writeln('Введите вес учеников'); for i := 1 to n do begin readln(massa[i]); sum := sum + massa[i] end; Writeln('Средий вес ученика подгруппы: ', sum / n); end.
Если известно что их 26, то можно написать так
var massa: array [1..26] of real; i: integer; sum: real;
begin Writeln('Введите вес учеников'); for i := 1 to 26 do begin readln(massa[i]); sum := sum + massa[i] end; Writeln('Средий вес ученика подгруппы: ', sum / 26); end.
надо делать всё по инструкции и акуратно
Объяснение: