Tin học Viết chương trình nhập vào 1 dãy gồm N số nguyên (N nhập từ bàn phím). a/ In dãy số nguyên vừa nhập b/ In giá trị tổng các phần tử chẵn trong dãy số 18/07/2021 By Gabriella Viết chương trình nhập vào 1 dãy gồm N số nguyên (N nhập từ bàn phím). a/ In dãy số nguyên vừa nhập b/ In giá trị tổng các phần tử chẵn trong dãy số c/ Tìm giá trị nhỏ nhất trong dãy vừa nhập GIẢI GIÙM MÌNH AK CẢM ƠN
program phuongt;uses crt; var A: array[1..500] of integer; n, i, s, min: integer;begin clrscr; write(‘Nhap n = ‘); readln(n); s:=0; for i:=1 to n do begin write(‘A[‘, i, ‘] = ‘); readln(A[i]); if A[i] mod 2 = 0 then s:=s+A[i]; end; min:=A[1]; for i:=1 to n do if A[i]<min then min:=A[i]; write(‘a. Day so vua nhap la: ‘); for i:=1 to n do write(A[i]:3); writeln; writeln(‘b. Tong = ‘, s); write(‘c. Gia tri nho nhat = ‘, min); readlnend. Trả lời
program baigiai; uses crt; var A:array[1..1000] of integer; n,i,min,t:integer; begin clrscr; write(‘Nhap N: ‘); readln(n); for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); end; write(‘Day so vua nhap la: ‘); min:=A[1]; t:=0; for i:=1 to n do begin write(A[i],’ ‘); if A[i] mod 2=0 then t:=t+A[i]; if A[i]<min then min:=A[i]; end; writeln; writeln(‘Tong cac phan tu chan la: ‘,t); writeln(‘Gia tri nho nhat la: ‘,min); readln; end. Trả lời