Uses crt;var a:array[1..100] of integer;i, max:integer;beginfor i:=1 to 100 dobegina[i]:=random(100);write(a[i],' ');end;max:=a[1];for i:=1 to 100 doif a[i]=25 then writeln('Да, число 25 есть в этом массиве.');if a[i]>max then max:=a[i];writeln('Максимальное число массива= ',max);readkey;<span>end.</span>
1. (51+40+22)-((32+11+8)-6)=68, остаются 2, которые ходят пить пиво вместо занятий!))
насчет второго, да... 30.
Лишь в том, что 1+1=1, а не 2. Если 0 - это "ложно", а 1 - "истинно",
Процессор, жёсткий диск, оперативная память, видеокарта, материнская плата, сд привод
C)И92 - нельзя использовать кириллицу
I)fg-л23 - нельзя использовать кириллицу, символ "-"