program Phone;
var day:integer; time:real; week:array[1..7] of string;
begin
week[7]:='Воскресенье';
week[6]:='Суббота';
week[5]:='Пятница';
week[4]:='Четверг';
week[3]:='Среда';
week[2]:='Вторник';
week[1]:='Понедельник';
write('введите длительность разговора в минутах ');
readln(time);
write('введите номер дня недели ');
readln(day);
writeln(' alphaeus is thinking... ');
case day of
'1'..'5':
begin
writeln(week[day]);
writeln('Сумма без скидки - ', 2.3*time);
writeln('Сумма скидкой - ', 0.8*2.3*time);
writeln('Скидка не предоставляется');
end;
'6','7':
begin
writeln(week[day]);
writeln('Сумма без скидки - ', 2.3*time);
writeln('Сумма скидкой - ', 0.8*2.3*time);
writeln('Вам предоставлена скидка!');
end;
else writeln('вы ввели неправильный номер дня недели')
end;
writeln'');
end.
Program a1;
var y: array[1..14] of integer; k,s1,s2: byte; minY,maxY,m: integer;
begin
writeln('Vvedite massiv Y: '); {просим ввести массив}
for k:=1 to 14 do read(y[k]); {записываем массив}
s1:=0; s2:=0; {счётчики на 0}
minY:=y[1]; {присваиваем первому значению минимум...}
for k:=2 to 14 do begin if y[k] < minY then degin minY:=y[k]; s1:=s1+1; end; {если есть меньше, то присваиваем}
maxY:=y[1]; {присваиваем второму значению максимум...> <}
for k:=2 to 14 do begin if y[k] > maxY then degin maxY:=y[k]; s2:=s2+1; end; {если есть больше, то присваиваем}
m:=y[s1]; {используя переменную m меняем местами элементы}
y[s1]:=y[s2];
y[s2]:=m;
writeln('Novyi massiv: ');
for k:=1 to 14 do write(y[k],' '); {выводим новый массив}
readln
end.
