На этот раз используя тот же принцип, что у чат-бота напишем свой электронный ежедневник на неделю. (если забыли, то посмотрите на урок)создадим списки для дней недели: monday, tuesday, wednesday, thursday, friday, saturday, sunday.для начала, на каждый день будем назначать одно дело.1) заполните список строками "нет дел" (подойдет цикл for)2) создайте команду "изменить дело" (edit)3) создайте команду "вывести календарь на неделю" (print)теперь, давайте улучшим наш ежедневник.в нулевом элементе будем хранить дела на утро, в первом на полдень, во втором на вечер.1) создайте команду "очистить дело" (delete)2) создайте команду "посмотреть дело" (check)3) создайте команду help, которая выводит по .можете добавить любые свои команды

var

   i: Integer;

   l: Single;

   counter: Integer;

begin

 counter := 0;

 for i := 0 to 14 do begin

   Read(l);

   if l >= 165 then

       counter := counter + 1 ;

 end;

 Writeln(counter);

end.

Второй вариант

const

 cN: Integer = 15;

 cMinSuitableLength: Single = 165;

var

 arr: array [0..14] of Single;

 i, counter: Integer;

begin

 for i := 0 to Length(arr) - 1 do

   Read(arr[i]);

 counter := 0;

 for i := 0 to Length(arr) - 1 do

   if arr[i] >= cMinSuitableLength then

     counter := counter + 1;

 Writeln(counter);

end.

Объяснение:

var

   i: Integer;

   l: Single;

   counter: Integer;

begin

 counter := 0;

 for i := 0 to 14 do begin

   Read(l);

   if l >= 165 then

       counter := counter + 1 ;

 end;

 Writeln(counter);

end.

Второй вариант

const

 cN: Integer = 15;

 cMinSuitableLength: Single = 165;

var

 arr: array [0..14] of Single;

 i, counter: Integer;

begin

 for i := 0 to Length(arr) - 1 do

   Read(arr[i]);

 counter := 0;

 for i := 0 to Length(arr) - 1 do

   if arr[i] >= cMinSuitableLength then

     counter := counter + 1;

 Writeln(counter);

end.

Объяснение: