thực hành : hãy viết chương trình nhập 1 dãy số từ bàn phím rồi tính tổng dãy số vừa nhập và in kết quả ra màn hình
hứa vote 5 * câu tlhn

Question

thực hành : hãy viết chương trình nhập 1 dãy số từ bàn phím rồi tính tổng dãy số vừa nhập và in kết quả ra màn hình hứa vote 5 * câu tlhn

hienchau · Answer

program ct;

uses crt;

var A:array[1..1000] of real;

S:real;

i,n:integer;

begin clrscr;

write(‘Nhap so phan tu n ‘); readln(n);

for i:=1 to n do

begin

writeln(‘Nhap phan tu thu ‘,i,); readln(A[i]);

end;

S:=0;

for i:=1 to n do

S:=S+A[i];

writeln(‘Tong day so tren la: ‘,S:4:2);

readln;

end.

Học tốt!

Bình luận

ngockhue · Answer

Program kthkII;

uses crt;

var i, n, s, N : integer;

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

begin

write(‘Nhap so nguyen N: ‘); readln(N);

write(‘Nhap do dai cua day so: ‘); readln(n);

for i:=1 to n do

begin write(‘A[‘,i,’]=’); readln(A[i]); end;

for i:=1 to n do write(‘A[‘,i,’]= ‘, A[i]);

s:=0;

for i:=1 to n do s:=s+A[i];

writeln(‘Tong cac so la: ‘, s);

readln;

End.

0 bình luận về “thực hành : hãy viết chương trình nhập 1 dãy số từ bàn phím rồi tính tổng dãy số vừa nhập và in kết quả ra màn hình hứa vote 5 * câu tlhn”