👤
a fost răspuns

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.

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 class=

Răspuns :

Kirilll
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.