1.viết chương trình tính tổng n số tự nhiên đầu tiên
2. Viết chương trình nhập từ bàn phím số nguyên dương n .A’ gồm n số nguyên dương A1,A2,A3,…An. Sau đó in ra màn hình trung bình cộng các phần tử chẵn () dãy
– làm giúp mk với ạ!nếu như ko biết câu 2 làm câu 1 trc cũng đc.hứa vote đầy đủ
1
program ct;
uses crt;
var S,i,n:integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
S:=0;
for i:=1 to n do S:=S+i;
writeln(‘tong cu n so tu nhien la:’,S);
readln
end.
2.
program ct;
uses crt;
var i,n:integer; tbc:real;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
tbc:=0;
for i:=1 to n do
if A[i] mod 2=0 then tbc:=(tbc+A[i])/n;
writeln(‘trung binh cong la:’,tbc);
readln
end.
1
1/
Program BTH;
uses crt;
var n,s,i:longint;
Begin
clrscr;
Write(‘Nhap n: ‘);readln(n);
for i:=1 to n do
s:=s+i;
Write(‘Tong day so tren la: ‘,s);
readln;
2.
uses crt;
var a:array[1..100] of longint;
n,i,t:longint;
begin
clrscr;
write(‘nhap n: ‘);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
end.
for i:=1 to n do t:=t+a[i];
writeln(‘tong cac gia tri trong day: ‘,t);
for i:=1 to n do
if a[i] mod 2<>0 then
begin
write(a[i]);
break;
end;
readln
end.
Ctr đã test nha bạn.