Tin học Viết công thức nhập vào mảng A gồm n số nguyên ( A<=100) a, tính tổng các phần tử của mảng b, đếm xem có bao nhiêu phần tử chia hết cho 5 c, sắp xếp 26/07/2021 By Kylie Viết công thức nhập vào mảng A gồm n số nguyên ( A<=100) a, tính tổng các phần tử của mảng b, đếm xem có bao nhiêu phần tử chia hết cho 5 c, sắp xếp mảng dưới dạng tăng dần d, hiện các kết quả ra màn hình Gấp giúp minh nhanh với . Sắp ktra rồi
Xin hay nhất ạ #Chương trình ngắn #No copy uses crt;var i,n,j,t5,t:longint; a:array[1..10000000]of longint;beginclrscr; write(‘n=’);readln(n); for i:=1 to n do begin write(‘a[‘,i,’]=’);readln(a[i]); t:=t+a[i]; if a[i] mod 5=0 then inc(t5); for j:=1 to i-1 do if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; end; writeln(‘Tong cac phan tu cua mang: ‘,t); writeln(‘Co ‘,t5,’ phan tu chia het cho 5′); writeln(‘Mang duoi dang tang dan: ‘); for i:=1 to n do write(a[i],’ ‘);readlnend. Trả lời
program mangnha; uses crt; var A:array[1..100] of integer; n,i,t,j,tg,d:integer; begin clrscr; write(‘Nhap so luong phan tu: ‘); readln(n); write(‘Nhap tung phan tu cua mang A:’); for i:=1 to n do begin write(‘Nhap A[‘,i,’]: ‘); readln(A[i]); end; t:=0; for i:=1 to n do t:=t+A[i]; d:=0; for i:=1 to n do if A[i] mod 5=0 then inc(d); for i:=1 to n-1 do for j:=i+1 to n do if A[i]>A[j] then begin tg:=A[i]; A[i]:=A[j]; A[j]:=tg; end; writeln(‘Tong cac phan tu cua mang la: ‘,t); writeln(‘Co ‘,d,’ phan tu cua mang chia het cho 5′); write(‘Day sau khi sap xep tang dan la: ‘); for i:=1 to n do write(A[i],’ ‘); readln end. Trả lời