Top 1 ✅ Viết chương trình nhập vào mảng A gồm N phần tử. Đếm trong mảng có bao nhiêu số chẵn; tính tổng các số chẵn trong mảng và đưa kết quả ra màn hình[ kết nam 2022 được cập nhật mới nhất lúc 2022-03-10 17:39:38 cùng với các chủ đề liên quan khác
Viết chương trình nhập ѵào mảng A gồm N phần tử．Đếm trong mảng có bao nhiêu số chẵn; tính tổng các số chẵn trong mảng ѵà đưa kết quả ra màn hình[ kết
Hỏi:
Viết chương trình nhập ѵào mảng A gồm N phần tử．Đếm trong mảng có bao nhiêu số chẵn; tính tổng các số chẵn trong mảng ѵà đưa kết quả ra màn hình[ kếtViết chương trình nhập ѵào mảng A gồm N phần tử．Đếm trong mảng có bao nhiêu số chẵn; tính tổng các số chẵn trong mảng ѵà đưa kết quả ra màn hình[ kết quả gồm sổ chẵn ѵà tổng c̠ủa̠ chúng ]
Giúp vs mk cần gấp
Đáp:
hauyen:uses crt;
var a: array[1..100] of integer;
dem，s，i，n: integer;
begin
clrscr;
write [‘nhap n: ‘]; readln [n];
for i:=1 to n do
begin
write [‘nhap a[‘，i，’]: ‘]; readln [a[i]];
if a[i] mod 2=0 then begin s:=s+a[i]; dem:=dem+1;
end;
writeln [‘trong mang co ‘，dem，’ so chan’];
writeln [‘tong cac so chan trong mang la: ‘，s];
readln;
end.
hauyen:uses crt;
var a: array[1..100] of integer;
dem，s，i，n: integer;
begin
clrscr;
write [‘nhap n: ‘]; readln [n];
for i:=1 to n do
begin
write [‘nhap a[‘，i，’]: ‘]; readln [a[i]];
if a[i] mod 2=0 then begin s:=s+a[i]; dem:=dem+1;
end;
writeln [‘trong mang co ‘，dem，’ so chan’];
writeln [‘tong cac so chan trong mang la: ‘，s];
readln;
end.
hauyen:uses crt;
var a: array[1..100] of integer;
dem，s，i，n: integer;
begin
clrscr;
write [‘nhap n: ‘]; readln [n];
for i:=1 to n do
begin
write [‘nhap a[‘，i，’]: ‘]; readln [a[i]];
if a[i] mod 2=0 then begin s:=s+a[i]; dem:=dem+1;
end;
writeln [‘trong mang co ‘，dem，’ so chan’];
writeln [‘tong cac so chan trong mang la: ‘，s];
readln;
end.
Viết chương trình nhập ѵào mảng A gồm N phần tử．Đếm trong mảng có bao nhiêu số chẵn; tính tổng các số chẵn trong mảng ѵà đưa kết quả ra màn hình[ kết
Xem thêm : ...
Vừa rồi, seonhé.vn đã gửi tới các bạn chi tiết về chủ đề Viết chương trình nhập vào mảng A gồm N phần tử. Đếm trong mảng có bao nhiêu số chẵn; tính tổng các số chẵn trong mảng và đưa kết quả ra màn hình[ kết nam 2022 ❤️️, hi vọng với thông tin hữu ích mà bài viết "Viết chương trình nhập vào mảng A gồm N phần tử. Đếm trong mảng có bao nhiêu số chẵn; tính tổng các số chẵn trong mảng và đưa kết quả ra màn hình[ kết nam 2022" mang lại sẽ giúp các bạn trẻ quan tâm hơn về Viết chương trình nhập vào mảng A gồm N phần tử. Đếm trong mảng có bao nhiêu số chẵn; tính tổng các số chẵn trong mảng và đưa kết quả ra màn hình[ kết nam 2022 [ ❤️️❤️️ ] hiện nay. Hãy cùng seonhé.vn phát triển thêm nhiều bài viết hay về Viết chương trình nhập vào mảng A gồm N phần tử. Đếm trong mảng có bao nhiêu số chẵn; tính tổng các số chẵn trong mảng và đưa kết quả ra màn hình[ kết nam 2022 bạn nhé.
Top 1 ✅ 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ố nam 2022 được cập nhật mới nhất lúc 2022-03-09 23:35:23 cùng với các chủ đề liên quan khác
Viết chương trình nhập ѵà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ố
Hỏi:
Viết chương trình nhập ѵà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ốViết chương trình nhập ѵà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ậpb/ 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
Đáp:
maianhtu: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] 2 lần
6 => 1 lần
1 => 3 lần
3 => 1 lần
2 => 1 lần
Như vậy đầu tiên chúng ta cần xây dựng hàm đếm số lần X xuất hiện và trả về giá trị, nếu như không có X trong mảng thì trả về giá trị = 0. Đối với câu B ta sử dụng thêm thủ tục gọi lại hàm đếm phần tử xuất hiện và in ra màn hình là xong. Như vậy chúng ta xây dựng thủ tục DemPTX và SoLanXH như sau:
Function DemPTX[Var A:Arr100; N, X:integer]:Integer;Var i,dem:integer;Begin dem:= 0; For i:=1 to N do if[A[i] = X] then dem:=dem+1; DemPTX:=dem;End;
Procedure SolanXH[A:Arr100; N:integer];
Var i :integer;Begin For i:=1 to N do Writeln[A[i],’==> ‘,DemPTX[A,N,A[i]]];End;
Đồng thời bổ sung vào thân chương trình
Write['Nhap vao so X can dem lan xuat hien']; Readln[X]; Writeln['So lan xua hien',DemPTX[A,N,X]]; Writeln['So lan xuat hien cua cac phan tu'];
SolanXH[A,N];
Mặc dù chúng ta đã xây dựng thành công và có thể chạy chúng nhưng khi in tất cả các phần tử nó sẽ bị lặp lại kết quả. Để khắc phục trường hợp này bạn cần làm thêm 1 bước đó là kiểm tra xem A[i] đã được in ra trước đó hay chưa. Nếu như đã in ra rồi thì không in nữa. Cái này nâng cao để các bạn suy nghĩ thêm nhé.
2/ Tính tổng các số trong mảng A
Khá đơn giản, các bạn chỉ cần tạo hàm tính tổng sau đó dùng vòng lặp từ phần tử đầu tiên đến phần tử cuối cùng và cộng dồn chúng vào là ok.
Function TinhTong[A:Arr100; N:integer]:integer;Var i,S: integer;Begin S:=0; For i:=1 to N do S:=S+A[i]; TinhTong:=S;
End;