Program p1; const n=10; var a:array [1..n] of real; i:byte; max:real; nmax:byte; begin //начало цикла ввода For i:=1 to n do //ввод Readln(a[i]) //берём за максимальный 1ый элемент max:=a[1]; //берём количество = 1 nmax:=1; / /начало цикла проверки For i:= 2 to n do if a[i]> max then begin max:=a[i]; nmax:=1; end else if a[i]= max then nmax:=nmax+1; //вывод Writeln('Максимальный элемент = ', max,', количество таких элементов = ',nmax); end.
2^9=512 сигналов ответ 512 сигналов