Tin học Viết chương trình nhập 1 dãy số gồm n số ( n nhập từ bàn phím) tìm và in ra giá trị lớn nhất trong dãy số vừa nhập 16/07/2021 By Adalynn Viết chương trình nhập 1 dãy số gồm n số ( n nhập từ bàn phím) tìm và in ra giá trị lớn nhất trong dãy số vừa nhập
uses crt;var arr: array[1..100] of integer;var i, n, max: integer;begin write(‘Hay nhap so nguyen n: ‘); readln(n); for i := 1 to n do begin write(‘Hay nhap phan tu arr[‘, i, ‘]: ‘); readln(arr[i]); end; writeln(‘Mang ban vua nhap la: ‘); for i := 1 to n do write(arr[i], #32); //#32 la mot dau cach writeln; max := arr[1]; for i := 1 to n do if max < arr[i] then max := arr[i]; writeln(‘Phan tu lon nhat: ‘, max); readln;end. Trả lời
program Max_Min; uses crt; var i,n: inreger; max: real; a : array [1..10000] of real; begin clrscr; readln(n); for i:=1 to n do begin write(‘A[‘,i,’]=’); readln(a[i]); end; max:=a[1]; for i:=2 to n do begin if max Trả lời