viết chương trình có sử dụng biến mảng để lưu laị dãy n số được nhập từ bàn phím a) tìm ra các số chẵn
a ) tìm ra số lớn nhất b) tìm ra các số chẵn

Question

viết chương trình có sử dụng biến mảng để lưu laị dãy n số được nhập từ bàn phím a) tìm ra các số chẵn a ) tìm ra số lớn nhất b) tìm ra các số chẵn

dananh · Answer

program sochan;

uses crt;

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

n,i,max: integer;

Begin

clrscr;

write(‘Nhap n: ‘); readln(n);

for i:=1 to n do

begin

write(‘A[‘,i,’]=’); readln(A[i]);

end;

write(‘Cac so chan la trong mang: ‘);

for i:=1 to n do

if A[i] mod 2=0 then write(A[i],’ ‘);

writeln;

max:=A[1];

for i:=2 to n do

if max<A[i] then max:=A[i];

write(‘So lon nhat: ‘,max);

readln

End.

0 bình luận về “viết chương trình có sử dụng biến mảng để lưu laị dãy n số được nhập từ bàn phím a) tìm ra các số chẵn a ) tìm ra số lớn nhất b) tìm ra các số chẵn”