Nhập vào số nguyên dương N và dãy gồm N số nguyên. 1. Hiển thị dãy vừa nhập lên màn hình. 2. tính tổng giá trị các phần tử của mảng. 3. Ghi kết quả vào tệp mảng TOC
Nhập vào số nguyên dương N và dãy gồm N số nguyên. 1. Hiển thị dãy vừa nhập lên màn hình. 2. tính tổng giá trị các phần tử của mảng. 3. Ghi kết quả vào tệp mảng TOC
program ct;
uses crt;
var A:array[1..250] of integer;
i,n,S:longint;
begin clrscr;
write(‘Nhap so phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap A[‘,i,’]: ‘); readln(A[i]);
end;
write(‘Mang vua nhap la: ‘);
for i:=1 to n do
begin
write(A[i]:3);
S:=S+A[i];
end;
writeln;
writeln(‘Tong la: ‘,S);
readln;
end.
Học tốt!
program Tin_hoc;
uses crt;
var i,n,tong:integer;
a : array[1..10000] of integer
begin
clrscr;
write(‘N=’);readln(n);
tong:=0;
writeln(‘Nhap ‘,n,’ phan tu:’);
for i:= 1 to n do
begin
readln(a[i]);
tong:=tong+a[i]
end;
writeln(‘Day vua nhap:’);
for i:= 1 to n do write(a[i],’ ‘);
writeln;
writeln(‘Tong cac gia tri cua mang la: ‘,tong);
readln;
end.