Je suis en 3A classe. Dans notre classe de tout un chacun de comprendre et d'aider dans le pétrin. Les garçons intercède pour les filles, et les filles ne railleries de leurs camarades de classe. Notre classe est toujours à-dire engagés dans les différentes compétitions, et bien que nous ne gagnons toujours, mais toujours joyeux de nos progrès. Nous avons un chic cabinet. Il ya beaucoup de couleurs! Nous avec ses camarades de classe pour eux la prise en charge. Pourtant, il ya un grand tableau, sur le sujet que nous traitons, nous écrivons des offres et dessiner. Ensuite, après les cours ordinaires enlèvent la classe. Balayer, arroser les fleurs, et tous les aident. Parce que notre classe est très sympa! En effet, c'est le plus important!
Ну и сюда скину. Вдруг не заметишь) Эта автоматически тебе всё сделает. Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); a[i]:=i+1; if max<a[i] then max:=a[i]; writeln(a[i]); end; writeln('Максимальный элемент равен: ',max); end.
Если нужно будет ввести последовательность с клавиатуры, то вот: Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); ReadLn (a[i]); if max<a[i] then max:=a[i]; end; writeln('Максимальный элемент равен: ',max); end.
а)
b)
c)
d)