Question

Salut. Ajutațimă va rog la exercițiiul 5 (b). Dar vă rog frumos să fie în PASCAL. Mulțumesc enorm pentru ajutor. Mulțumesc de timpul acordat.

Answer 1

var i,j,max:integer;a:array[1..5] of integer;Begin     for i:=1 to 5 do      a[i]:=random(100);          max:=0;     for i:=1 to 5 do      if a[i]>max then max:=a[i];          for i:=1 to 5 do     writeln(a[i]);      writeln('max:',max);end.