Написать программу в паскале! надо! задана последовательность целых чисел, количество которых не превосходит 100.требуется определить за один проход элемент с максимальным значением, а также число его повторений в последовательности.

Program maxof; var ar: array [1..100] of integer; i, j, posl: shortint; max: integer; begin readln(i); for j: =1 to i do begin readln(ar[j]); end; max: =ar[1]; posl: =1; for j: =2 to i do begin if max = ar[j] then inc(posl); if max < ar[j] then begin posl: =1; max: =ar[j] end;   end; writeln(max, ' x', posl); end.

Var   i,k,max: integer;   a: array[1..100]of integer; begin writeln('исходная последовательность: '); for i: =1 to 100 do   begin   a[i]: =random(200);   write(a[i],' ');   if a[i]> max then     begin     max: =a[i];     k: =1;     end;   if a[i]=max then     k: =k+1;   end; writeln; writeln('максимальное значение: ',max); writeln('число повторений: ',k) end.

австрия - вена

бельгия- брюссель

великобритания-лондон

германия-берлин

ирландия-дублин

2^i=n, n = 16

2^i=16

i=4 бит

50 * 4 = 200 бит

200: 8 = 25 байт