1. В массиве Day хранятся данные о количестве израсходованных денег за телефон за…

Ну, вообще-то, в задании записан алгоритм только на одном языке. Этот алгоритм находит найбольшее значение израсходованных за телефон денег за день и выводит номер этого дня (то есть отвечает на вопрос: «в какой день недели я потратил больше всего денег на телефон? "На экран будет выведено "4", потому что в этот день было потрачено 80 «денег» — наибольшее значение за неделю. На Бейсике программа будет выглядеть так: DIM Day (7) AS INTEGERDay (1)=79Day (2)=25Day (3)=67Day (4)=80Day (5)=63Day (6)=17Day (7)=68m=Day (1) d=1FOR i=2 TO 7IF Day (i) >m THENm=Day (i) d=iEND IFNEXT iPRINT dEND На Паскале: Vari, m, d: integerDay: array[1… 7] of integerbegin Day[1]=79; Day[2]=25; Day[3]=67; Day[4]=80; Day[5]=63; Day[6]=17; Day[7]=68; m=Day[1]; d=1; for i: =2 to 7 do begin if Day[i]>m then begin m: =Day[i]; d: =i end end writeln (d); end.