Question

Viet CT khai báo mảng A có n phần tử nhập giá trị cho các phần tử của mảng A.In ra màn hình số lốn nhất của dãy số

Answer 1

program solonnhat;

var i,n,SLN:intger;

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

begin

write('nhap do dai cua day so, n='); readln(n);

writeln('nhap cac phan tu cua day so:');

for i:=1 to n do

begin

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

end;

SLN:=a[1];

for i:=2 to n do if SLN<a[i] then SLN:=a[i];

write('so lon nhat cua day so la:',SLN);

readln

end.

Answer 2

uses crt;

var i,n,max:longint;

a:array[1..1000]of longint;

begin

write('nhap so phan tu:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu thu ',i,' :');readln(a[i]);

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

else if max<a[i] then max:=a[i];

end;

write('so lon nhat trong mang la:',max);

readln

end.