1. Создайте таблицу «Режим дня и не забудьте ввести в та- блицу время пользования компьютером. 2. Ситуационное задание. Что вы посоветуете Жандосу? Мой совет Действие Жандос пришел из школы, пообедал, и сразу сел за компьютер. Делал перерывы каждые 30 минут, но при этом забыл выполнить домашнее задание. Выключил компьютер только тогда, когда родители пришли с работы ​

1) В файле

2) Жандосу надо установить себе будильник, который прозвонит когда надо садиться делать уроки.

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.

program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.