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.
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a<0) then writeln(a,' la so am')
else if (a>0) then writeln(a,' la so duong')
else writeln(a,' khong la so am cung khong la so duong');
if (b<0) then writeln(b,' la so am')
else if (b>0) then writeln(b,' la so duong')
else writeln(b,' khong la so am cung khong la so duong');
if (a>0) then writeln(sqr(a+b));
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a[10],n=10,i,ln;
int main()
{
for (i=1; i<=n; i++) cin>>a[i];
ln=a[1];
for (i=1; i<=n; i++) ln=max(ln,a[i]);
cout<<ln<<endl;
if (ln%2==0) cout<<"Phai";
else cout<<"Khong phai";
return 0;
}
program bt;
uses crt;
var i, max : integer;
a : array[1..10] of integer;
begin
clrscr;
for i:=1 to 10 do begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
max := 0;
for i:=1 to 10 do if a[i] > max then max := a[i];
if (max mod 2 = 0) then write(max,' la so lon nhat va la so chan')
else write(max,' la so lon nhat va la so le');
readln
end.
Program ba_canh_cua_tam_giac;
uses crt;
var a,b,c: real;
BEGIN
Write('nhap do dai canh a'); Readln(a);
Write('nhap do dai canh b'); Readln(b);
Write('nhap do dai canh c'); Readln(c);
If (a<(b+c)) and (b<(c+a)) and (c<(b+a)) then write('do la do dai cua mot tam giac')
else write('do khong la do dai cua mot tam giac');
Readln;
END.
Thanks
bạn ơi viết chương trình bằng chữ hay là ở trong pascal z bạn
Uses crt;
var i,n: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2<>0) then writeln(i);
readln;
end.
var a,b:longint;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
cau a) if a>b then write(a);
cau b) if a=b then write('hai so bang nhau') else write('hai so ko bang nhau');
cau c) if a mod b=1 then write('a le') else write('a chan');
readln
end.
mỗi câu a,b,c thì readln rồi end nhé
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a>0) and (b>0) then writeln(a*b)
else writeln('Nhap lai');
readln;
end.
program sochan;
uses crt;
var a:integer;
begin
write('hay nhap a');
readln(a);
if a mod 2 = 0 then writeln(' a la so chan',a);
end.
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if a mod 2=0 then write(a);
readln;
end.
làm bằng thuật toán giùm mik nhé, mơn nhiều
chủ tus câu hỏi trên
program ...;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('Nhap a ='); readln(a);
write('Nhap b='); readln(b);
writeln('Day vua nhap la',a,',b);
c:=a;
a:=b;
b:=c;
writeln('Day hoan doi la',a,',',b);
readln;
end.