Курсовая. Ассортимент блюд с указанием группы (закуски, первые блюда и т.д) и стоимости одной порции.
• Номера столов (номер столов, количество мест)
• Система скидок в зависимости от суммы чека
• Перечень акций.

Может у кого есть ссылка откуда можно списать?

Const
  n = 5;{ это позволяет в одном месте изменить количество чисел }

type
  numeric = real;{ это позволяет в одном месте изменить тип чисел }

var
  max, min: numeric;
  i: integer;
  a: array[1..n] of numeric;

begin
  Writeln('Введите ', n, ' произвольных чисел через пробел');
  Read(a[1]);
  min := a[1]; max := min;
  for i := 2 to n do
  begin
    Read(a[i]);
    if max < a[i] then max := a[i]
    else
    if min > a[i] then min := a[i]
  end;
  Writeln('Минимальное введенное: ', min, ', максимальное: ', max)
end.

Тестовое решение:
Введите 5 произвольных чисел через пробел
34 157 -84.54 14.843 -13.64
Минимальное введенное: -84.54, максимальное: 157

ответка

Задайте свой вопрос и получите ответ от профессионального преподавателя. Выберите лучший ответ.

Задать вопрос

Все вопросы

Андрей

Информатика и ИКТ 5 - 9 классы

23.04.2020 13:26

Дано целое число. Если оно является положительным, то прибавить к нему 1 ; если отрицательным, то вычесть из него 4; если нулевым, то заменить его на 18. Вывести полученное число.

1)program zadaca;

var

a: integer;

begin

writeln('Введи число a');

readln(a);

if a > =0 then

if a=0 then a:=18 else a:=a+1

else a:=a-4;

end.

2)program zadaca;

var

begin

writeln('Введи число a');

readln(a);

if a > =0 then

if a=0 then a:=18 else a:=a+1

else a:=a-4;

writeln(a);

readln;

end.

3)program zadaca;

var

a: integer;

begin

writeln('Введи число a');

readln(a);

if a > =0 then

if a=0 then a:=18 else a:=a+1

else a:=a-4;

writeln(a);

readln;

end.