Program ABC;
Uses CRT;
var
a,b:real;
c:char;
begin
ClrScr;
repeat
Writeln('la-la-la');
Write('Если хотите вычислить сумму, то нажмите С,');
Writeln(' произведение- D, операцию деления -E ');
Writeln('Для завершения работы нажмите Q');
c:=ReadKey;
case c of
'C','c':begin
Write('Сложение: введите слагаемые: '); Read(a,b);
Writeln('Сумма равна ',a+b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'D','d':begin
Write('Умножение: введите сомножители: '); Read(a,b);
Writeln('Произведение равно ',a*b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'E','e':begin
Write('Деление: введите делимое и делитель: '); Read(a,b);
Writeln('Частное равно ',a/b);
Write('Для продолжения нажмите любую клавишу');
ReadKey;
ClrScr
end;
'Q','q':;
else begin
Writeln(#13#10,'Error, please enter C, E or D',#13#10);
end
end;
until c in ['Q','q'];
Writeln('Ждем Вас снова!');
Readkey
end.
var a,b:integer;
begin
writeln ('Введите два числа:');
read (a,b);
if a > b then begin
writeln ('Максимальное число: ',a);
end
else begin
writeln ('Максимальное число: ',b);
end;
end.
Если просто надо убрать легенду, просто щелкните мышкой на ней и там должно появиться сообщение типа ОЧИСТИТЬ ЛЕГЕНДУ
Program NoName;
Var vid,i,n,k,max:integer;
sr:real;
a:array[1..9999] of integer;
Begin
mx:=0;
max:=0;
k:=0;
vid:=0;
sr:=0;
Read (n);
For i:=1 to n do
Begin
Writeln(a[i] :3);
max:=a[1];
If a[i] > max then
max:=a[i];
If a[i] < 0 then
Begin
vid:=vid + a[i];
k:=k+1;
End;
End;
sr:=vid / k;
For i:=1 to n do
Begin
If a[i] < max then
Write (a[i])
Else
Write (sr);
End;
End.
Не могу быть уверенным за правильность, нет возможности проверить
