cau 1.Chương trình nhập vào mảng 1 dãy số nguyên tối đa 100 số. Tính và xuất ra
Tổng các số trong mảng vừa nhập.. giúp em với ạ

Question

cau 1.Chương trình nhập vào mảng 1 dãy số nguyên tối đa 100 số. Tính và xuất ra Tổng các số trong mảng vừa nhập.. giúp em với ạ

danthu · Answer

Program Hotboy;

Uses crt;

Var A:array[1..100] of integer;

I,n,S : longint;

Begin

Clrscr ;

S:=0;

Write(‘nhap so n’); readln(n);

For i:=1 to n do

Begin

Write(‘A[‘,i,’]’); readln(A[i]);

End;

For i:=1 to n do

S:=S+ A[i] ;

Writeln(‘Tong la’,S);

Readln

End.

myngoc · Answer

program oken;

uses crt;

var a: array [1..100] of integer;

n,i,sum:longint;

begin

clrscr;

write(‘nhap n: ‘); readln(n);

sum:=0;

for i:=1 to n do

begin

write(‘a[‘,i,’]: ‘): readln(a[i]);

sum:=sum+a[i];

end;

writeln(‘tong=’,sum);

readln;

end.

0 bình luận về “cau 1.Chương trình nhập vào mảng 1 dãy số nguyên tối đa 100 số. Tính và xuất ra Tổng các số trong mảng vừa nhập.. giúp em với ạ”