Viết chương trình viết nhập vào 8 số nguyên trên tìm max dãy số đó
Yêu cầu: khai tên báo biến mảng dãy số, với chỉ số đầu là 1, chỉ số cuối là 20, kiểu dữ liệu số nguyên
uses crt; var i,max:longint; a:array[1..20]of longint; begin clrscr; max:=low(longint); for i:=1 to 8 Do begin write('Nhap so nguyen thu ',i,': ');readln(a[i]); if a[i]>max then max:=a[i]; end; writeln('Max= ',max); readln end.
uses crt; var n,i,max:longint; a:array[1..20]of longint; begin clrscr; readln(n); for i:=1 to n do begin read(a[i]); if a[i]>max then max:=a[i]; end; readln; write(max); readln end.