Интернет угымына талдау жасау

Uses   crt;
const  M = 100;
var  a: array [1..M] of integer; 
       i, max, k, n: integer;
begin  clrscr;   
repeat   
  writeln('Введите количество элементов массива');   
  readln(n); 
until (n <> 0) and (n>0);   

for i := 1 to n do 
begin   
   writeln('Введите [', i, '] элемент массива');   
   readln(a[i]); 
end;  

for i := 1 to n do   
 write(' ', a[i]);   

 writeln;   

max := a[1]; 
for i := 2 to n do  
   if a[i] > max then max := a[i]; 
writeln(' max= ', max);   

for i := 1 to n do   
   if a[i] = max then k := k + 1;   
writeln(' k= ', k);   
end.

Вся история развития человеческого общества связана с накоплением и обменом информацией (наскальная живопись, письменность, библиотеки, почта, телефон, радио, счеты и механические арифмометры и др.).

Коренной перелом в области технологии обработки информации начался после Второй мировой войны.

В вычислительных машинах первого поколения основными элементами были электронные лампы. Эти машины занимали громадные залы, весили сотни тонн и расходовали сотни киловатт электроэнергии. Их быстродействие и надежность были низкими, а стоимость достигала 500-700 тысяч долларов.