Question

câu 1: viết chương trình tính tổng, tích các số tự nhiên nhập từ bàn phím.

câu 2: viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số. độ dài của dãy số cũng được nhập từ bàn phím.

p/s: mik ngu môn tin nhắm nhuôn, lên máy tính chỉ bt cày game thui. giúp mik nha mik đang cần gấp nhất là câu 2, trả lời đúng mik nhất định sẽ tick.

Answer 1

Câu 1:

program bt;

uses crt;

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

i,n,tong,tich:integer;

begin

clrscr;

write('Do dai cua day la:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

tong:=0; tich:=1;

for i:=1 to n do

begin

tong:=tong + a[i];

tich:=tich*a[i];

end;

write('tong cac so tu nhien nhap tu ban phim:',tong);

writeln;

write('tich cac so tu nhien nhap tu ban phim:',tich);

readln

end.

Câu 2:

program bt;

uses crt;

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

i,n:integer;

begin

clrscr;

write('nhap do dai day so:'); readln(n);

writeln('nhap cac phan tu cua day:');

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

readln

end.