У Нармины имеется четыре фломастера: зелёного, красного, синего и чёрного цвета. Сколькими она может разукрасить два ромба ? (цвета могут повторяться):

1. Max - это системная функция/ Не стоит называть таким именем свою.

2. Последнее условие в процедуре не совсем понятно. И для нахождения максимального значения оптимальнее это делать в одном цикле. В PascalABC так вообще можно написать     m:=a.max; и ВСЁ.  Но если хотите как на Pascal -  Я исправил.

3. Функция ищет максимальное значение в массиве.

Pascal

var

maxa:integer;

 procedure Getmax(c:integer; var m:integer);

 var

   i:integer;

   a: array [1..100] of integer;

 begin

for i:=1 to c do begin

     a[i]:= random (20);

     write(a[i],' ');

     if m<a[i] then

       m:=a[i];

   end;  

   writeln;

 end;

begin  

 Getmax(100,maxa);

 writeln('Max=', maxa);

end.

СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4
СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4СИАВРАПВЫП АКВЕГ ЕНГО КЕН ЦУК НГА ОАПРО ПАВ ПАВ ПВАП ВФВЫ ЫВААРОРОЛНГ КЕН6 ФЫВА К4