Написать прогу на паскале: у фигуристов проходит конкурс. им присуждют за 1-ю, 2-ю и 3-ю программу катания. найти средний всех трех программ для каждого фигуриста, сумму для каждого фигуриста. массив заполняетсярандомом (желательно небольшие числа), кол-во фигуристов вводится с клавиатуры + найти победителя (максимальный средний )

program n1; uses crt; var a,b,c,sum: array[1..100] of integer; srb: array[1..100] of real; i,k,n: integer; sr: real; beginclrscr; randomize; writeln('vvedite kol-vo figuristov'); readln(n); writeln('rezultaty'); for i: =1 to n do begin a[i]: =random(10); write(a[i]: 4); end; writeln; for i: =1 to n do begin b[i]: =random(10); write(b[i]: 4); end; writeln; for i: =1 to n do begin c[i]: =random(10); write(c[i]: 4); end; writeln; writeln('summa ballov'); for i: =1 to n do begin sum[i]: =a[i]+b[i]+c[i]; write(sum[i]: 4); srb[i]: =sum[i]/3; if srb[i]> sr then begin sr: =srb[i]; k: =i; end; end; writeln; writeln('srednii rezultat'); for i: =1 to n do write(srb[i]: 4: 2,' '); writeln; writeln('pobedil figurist ',k,' s rezultatom ',sr: 2: 2); readln end.

Var день,месяц: byte; begin write('№ дня = '); readln(день); var c: =365-день; write('№ месяца = '); readln(месяц); case месяц of 2: c: =c-31; 3: c: =c-59; 4: c: =c-90; 5: c: =c-120; 6: c: =c-151; 7: c: =c-181; 8: c: =c-212; 9: c: =c-243; 10: c: =c-273; 11: c: =c-304; 12: c: =c-334 end; if (c mod 100> 10)and(c mod 100< 20) then write('до нового года осталось ',c,' дней') else case c mod 10 of 1: write('до нового года остался ',c,' день'); 2..4: write('до нового года осталось ',c,' дня'); 0,5..9: write('до нового года осталось ',c,' дней') end end.

;; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;