Viết chương trình tính tổng, tích các số tự nhiên nhập vào từ bàn phím (sử dụng biến mảng)
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Câu 5:
uses crt;
var s,t,i,n:integer;
a:array[1..100]of integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
s:=1;
for i:=1 to n do
begin
t:=t+a[i];
s:=s*a[i];
end;
writeln(t);
writeln(s);
readln;
end.
Var m1,m2,m3,tb:real;
Begin
Write('Nhap diem mon 1 = ');readln(m1);
Write('Nhap diem mon 2 = ');readln(m2);
Write('Nhap diem mon 3 = ');readln(m3);
tb:=(m1+m2+m3)/3;
If (tb>=5) and (m1>=4) and (m2>=4) and (m3>=4) then write('Ket qua: Dau')
Else write('Ket qua: Rot');
Readln;
End.
Câu 5:
uses crt;
var s,t,i,n:integer;
a:array[1..100]of integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
s:=1;
for i:=1 to n do
begin
t:=t+a[i];
s:=s*a[i];
end;
writeln(t);
writeln(s);
readln;
end.
Tham khảo:
program tinh_diem;
uses crt;
var N:array[1..10] of integer;
i,s: integer;
begin
for i:=1 to 10 do
begin
write('nhap diem trung binh cua hoc sinh thu ',i); readln(N[i]);
if N[i]<5 then s:=s+1;
end;
write('so hoc sinh co diem trung binh duoi 5 la: ',s);
readln;
end.
uses crt;
const fi='songuyen.inp';
var f1:text;
a:array[1..100]of integer;
i,n,kt,j:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n]);
end;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(a[i]:4);
end;
close(f1);
readln;
end.
tham khảo
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.