Tin học Viết chương trình nhập vào mảng 1 chiều gồm N phần tử nguyên Tìm giá trị lớn nhất trong mảng Viết chương trình nhập vào mảng 1 chiều gồm N phần tử ngu 18/07/2021 By Katherine Viết chương trình nhập vào mảng 1 chiều gồm N phần tử nguyên Tìm giá trị lớn nhất trong mảng Viết chương trình nhập vào mảng 1 chiều gồm N phần tử nguyên Đếm số phần tử chẵn trong mảng
program boi_cua_3; uses crt; var a:array[1..100] of integer; n,i:byte; min:integer; begin clrscr; write(‘nhap so luong phan tu cua mang: ‘); readln(n); for i:= 1 to n do begin write(‘nhap phan tu thu [‘,i,’]= ‘); readln(a[i]); end; min:=a[1]; for i:= 1 to n do if min > a[i] then min:=a[i]; writeln(‘gia tri nho nhat cua day la: ‘,min); readln end. Trả lời
Câu 1: program Cau_1; uses crt; var A:array [1..500] of integer; N,i,max: integer; Begin clrscr; write(‘Nhap so phan tu: ‘); readln(N); max:=1; for i:=1 to N do begin write(‘A[‘,i,’]=’); readln(A[i]); if max<A[i] then max:=A[i]; end; write(‘Gia tri lon nhat: ‘,max); readln End. Câu 2: program Cau_2; uses crt; var A:array [1..500] of integer; N,i,d: integer; Begin clrscr; write(‘Nhap so phan tu: ‘); readln(N); for i:=1 to N do begin write(‘A[‘,i,’]=’); readln(A[i]); if A[i] mod 2=0 then d:=d+1;; end; write(‘Co ‘,d,’ phan tu chan’); readln End. Trả lời