Дима ниже Вася ещё ниже Игорь и ещё ниже Толя
Извини что без комментов,но надеюсь разберешься в коде!
Program z1; const n = 15; Var a: array [1..n] of integer; i:integer; s:real;Begin for i:=1 to n do read(a[i]); for i:=1 to n do write (a[i],' '); s:=0; for i:=1 to n do s:=s+a[i]; s:=s/n; writeln; writeln('Сумма элементов = ',s);End.<span>
</span>
Ответ:
Program z1;
Var a,b,c,p:integer;
begin
Writeln('Введіть сторони трикутника:');
Readln (a,b,c);
p:=a+b+c;
Writeln ('Периметр трикутника:');
if a+b>c AND c+a>b AND b+c>a then
Writeln ('Трикутник буде існувати.')
else
Writeln ('Трикутник не буде існувати.');
end
Program Test;
Var
x: integer; chas: real; str1, str2: string;
Begin
Write('Введите длительность телепрограммы (мин): ');
Readln(X);
Writeln();
if (x < 60) then
begin
if (x < 10) then
Writeln('Миша ляжет спать в 00:0', x)
else
Writeln('Миша ляжет спать в 00:', x)
end
else
begin
chas := x div 60;
x := x mod 60;
if (chas >= 24) then
Writeln('Сегодня Миша спать не ляжет')
else
begin
if (chas < 10) then
str1 := '0' + chas
else
str1 := '' + chas;
if (x < 10) then
str2 := '0' + x
else
str2 := '' + x;
Writeln('Миша ляжет спать в ', str1, ':', str2);
end;
end;
End.