Задание:
Решите задачу на паскале пожалуйста-в регионе 8 областей, в течении ряда лет ведется компьютерный учет кол-ва преступлений по кажлой области, найти ивывести на экран название областей в которых было произведено максимальное и минимальное кол-во преступлений в прошлом и текущих годах.
Решение:
type t=array[1… 8] of integer; var a: t; g,n,i,max,min,j: integer; beginfor i: =1 to 8 doa[i]: =0; write ('сколько лет'); read (g); for j: =1 to g dofor i: =1to 8 dobeginwrite ('сколько преступления за этот год в этой области'); read (n); a[i]: =a[i]+n; end; max: =0; min: =a[1]; for i: =1 to 8 dobeginif a[i]>max then max: =a[i]; if a[i] Знаете другой ответ?