là ví dụ nhập vào 22334 và 8993 thì in ra 22334 tổng là 14; 8993 có tổng là 29; à?

nếu vậy chỉ cần cho chạy vòng mod, div 10 rồi cộng dồn là ra kết quả:

vd  for i:=1 to length(a) do begin

sa:=a mod 10;

a:=a div 10; end;

b tương tự kiểu vậy là được :) 

Chọn replationship

Me................................................

Lq ko :>>>>>>>>>>>>>>>>>>>>>>>

luna bn lp 6 hả

Program Day_So_Giam_Dan;

Uses Crt;

Var s,n,i,j,t:integer;

a:array[1..20] of integer;

Begin

Clrscr;

Writeln(‘SAP XEP DAY SO:’);

Write(‘Nhap so phan tu cua day n = ‘); Readln(n);

For i:=1 to n do Begin Write(‘a[‘,i,’]= ‘); Readln(a[i]); End;

For i:=1 to n-1 do

For j:=i+1 to n do If a[i]<a[j] then Begin t:=a[i]; a[i]:=a[j]; a[j]:=t; End;

Writeln(' Day sau khi sap xep giam dan la:');

For i:=1 to n do Write(a[i]:4); Readln;

s:=0; For i:=1 to n do s:=s+a[i];

Writeln('Gia tri trung binh la: ',s/n:6:2);

Readln;

End.

Thông tin là tất cả những gì con người thu nhận từ thế giới xung quanh hay về chính mình

Thông tin là những gì con người thu nhận được từ thế giới xung quanh như sự vật, sự kiện,…Thông tin đem lại nhiều kiến thức, sự hiểu biết cho con người.

3 chách nhé

3 cách

học tốt

gõ towf giaays chos suar