ai kết bạn không

khó

3215

bài 2:

var a:array[1..5] of integer;

n,i,max:integer;

begin

read(n);

for i:=1 to n do read(a[i]);

max:=a[i];

for i:=1 to n do if max<a[i] then

max:=a[i];

write(max);

end.

36

j:=10

var a:array[1..100] of longint;

n,i,tb: longint;

begin

read(n);

for i:=1 to n do read(a[i]);

s:=0;

for i:=1 to n do s:=s+i;

tb:=0;

tb:= s mod n;

write(tb);

end.

tickkkkkkkkkkkkkkkkkk

ai chia buon voi toi voi nich o thu 9 cua tui bi khoa den ngay mai roi huhu

tuy theo