Viết thuật toán Tìm giá trị lớn nhất của dãy số nguyên sau N=8 7, 8 , 10, 6 ,5 ,11 ,5 ,4

* Viết thuật toán :

- Bước 1 : nhập số n và các số hạng a1, a2, ... , an

- Bước 2 : t ← 2; max ← a[1]

- Bước 3 : nếu t > n thì đưa ra giá trị max rồi kết thúc

- Bước 4 :

- Bước 4.1 : nếu max < a[t] thì max ← a[t] 

- Bước 4.2 : t ← t + 1 quay lại bước 3

Input : cho giá trị của 8 số nguyên

Output : Tìm GTLN

thuật toán

bước 1 : nhập số n=8

bước 2: nhập các số nguyên

bước 3: gán a[1] lớn nhất

nếu a[1] a[i] lớn nhất

bước 4 : in ra màn hình kết quả và kết thúc thuật toán

mình viết ct vd luôn nha

program timgtln;

uses crt;

var n ,max:integer

a:array[1..100] of integer;

begin

clrscr;

write('nhap so n',n); readln(n);

for i:=1 to n do

begin

write('a[',i,]'); readln(a[i]);

end;

a[1]:=max ;

if a[i] > a[1] then a[i]:=max;

writeln('gia tri lon nhat cua day so nguyen la',max);

readln

end.