Program z1; var a:array[1..100] of integer; n,i:byte;ma:integer; begin write('n=');readln(n); for i:=1 to n do begin write(i,')');readln(a[i]) end; ma:=a[1]; for i:=1 to n do begin if a[i]>ma then begin ma:=a[i] end end; for i:=1 to n do begin a[i]:=ma end; writeln('test n=',n); for i:=1 to n do begin writeln(a[i]) end; readln end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
