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.
Mình nghĩ mình sẽ không đưa code, mà chỉ đưa ý tưởng thôi nhé.
1. Khai báo n, mảng a và s = 0. Với mỗi phần tử a, ta cộng nó vào s. Cuối ta in ra s/n.
2. Cũng khai báo n, mảng a và 2 biến s1 (lưu tổng lẻ) và s2 (lưu tổng chẵn). Với mỗi a, ta kiểm tra số đó có phải là số chẵn hay lẻ (if n mod 2 = 0) và cộng vào s1 (nếu là chẵn) hoặc s2 (nếu là lẻ) và in ra.
3. Khai báo n, mảng a và minn để chứa số nhỏ nhất. Với mỗi a, tìm minn bằng cách so sánh a với minn và gán lại minn nếu nó lớn hơn a. Sau đó cho chạy thêm một vòng nữa để kiểm tra xem số nào là số minn, và in chỉ số của nó ra.
Nếu có gì thắc mắc, hỏi kỹ mình, mình sẽ giúp đỡ nhé.
Chúc bạn học tốt 
.
Câu 1:
uses crt;
var n,i,t:integer;
a:array[1..100]of integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t/n:4:2);
readln;
end.
#incude <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin>>x>>y;
cout<<x*x+2*y+1;
return 0;
}
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
double a,cv,dt;
int main()
{
cin>>a;
cv=a*4;
dt=a*a;
cout<<fixed<<setprecision(2)<<cv<<endl;
cout<<fixed<<setprecision(2)<<dt;
return 0;
}
uses crt;
var a,b,c:longint;
begin
clrscr;
readln(a,b,c);
writeln(a*b*c);
readln;
end.
uses crt;
var a,b,x,y:integer;
//chuongtrinhcon
function ucln(var a,b:integer):integer;
var r:integer;
begin
while b>0 do
begin
r:=a mod b;
a:=b;
b:=r;
end;
ucln:=a;
end;
//chuongtrinhchinh
begin
clrscr;
readln(a,b);
x:=a;
y:=b;
if (x>0) and (y>0) then writeln(x div ucln(a,b),' ',y div ucln(a,b));
if (x<0) and (y<0) then
begin
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x<0) and (y>0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
if (x>0) and (y<0) then
begin
write('-');
x:=abs(x);
y:=abs(y);
a:=abs(a);
b:=abs(b);
writeln(x div ucln(a,b),' ',y div ucln(a,b));
end;
readln;
end.
Program HOC24;
var i,n: integer;
t: longint;
a: array[1..1000] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=a[1]+a[n];
write('Ket qua la: ',t);
readln
end.
program TinhTongPhanTuDauVaPhanTuCuoi;
var
A: array[1..1000] of integer;
n, TongDau, TongCuoi: integer;
i: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('A[', i, '] = ');
readln(A[i]);
end;
TongDau := A[1];
TongCuoi := A[n];
writeln('Cac phan tu trong mang la: ');
for i := 1 to n do
begin
write(A[i], ' ');
if i = 1 then
continue;
if i = n then
break;
TongDau := TongDau + A[i];
end;
writeln();
writeln('Tong phan tu dau va phan tu cuoi cua mang la: ', TongDau + TongCuoi);
readln;
end.
var a,b : integer ;
begin
write('nhap ho va ten'); readln;
write('nhap nam hien tai'); readln(a);
b:=a-13 ;
write('nam sinh la',b);
readln
end.