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.

1
Uses crt;
Var t,n,i:longint;
Begin
clrscr;
write('nhap vào số n: ');readln(n);
while n<1 do readln(n);
for i:=1 to n do t:=t*i;
write('tich tren co ket qua la: 't);
readln;
End.
2(bài này sử dụng mảng nhé)
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
Begin
Write('Nhap N='); Readln(N);
while N<1 do readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('so lon nhat trong day N:', Max);
Readln;
End.
3
Uses crt;
Var a:array[1..20]of integer;i,N,max,min:integer;
Begin
Clrscr;
Write(‘Nhap so phan tu cua day n=’);readln(n); For i:=1 to n do
Begin
Write(‘Nhap a[‘,i,’]=’);readln(a[i]);
End;
Min:=a[1]; Max:=a[1]; For i:=1 to N do
Begin
If (Min > a[i]) then Min:=a[i];
If (Max < a[i]) then Max:=a[i];
End;
Writeln('Day so vua nhap la: '); Writeln('————————-'); For i:=1 to N do
Write(a[i]:4); Writeln;
Writeln('Gia tri lon nhat la:',Max); Writeln('gia tri nho nhat la:',Min);
Readln;
End.
kiểm tra xem đúng ko nhé!

Program ct;
Var i,n,so le, so chan:integer;
B:Array[1..n] of integer;
Begin
Write('n=');Readln(n);
For i:=1 to n do begin Write('B[',i,']=');
Readln(B[i]);
End;
For i:=1 to n do Begin
if B[i] mod 2 <>0 then writeln('so le , ' );
If B[i] mod 2=0 then writeln('so chan ,' );
End;
Readln
End.
Lời giải:
Bài 1 :
a) var A : array[1..100] of real ;
b) var B : array[1..20] of integer ;
c) A[7] := 8 ;
Bài 2 :
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
readln
end.
Bài 3 :
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('Co tat ca so ban hoc sinh la'); readln(n);
write('Nhap diem mon tin cua cac ban');
for i:= 1 to n do
begin
write('Ban thu ',i,':'); readln(a[i]);
end;
readln
end.
Bài 4 : a,b giống bài 3
c)
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n,tong : integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
tong:=0;
for i:= 1 to n do
if a[i] > 0 then tong:=tong+1;
write('Ket qua la',tong);
readln
end.
Bài 5: a và b tương tự bài 3
c+d )
program hotrinhoc ;
var a: array[1..32000] of integer ;
i,n: integer ;
begin
write('nhap do dai cua mang'); readln(n);
write('Nhap cac gia tri cua phan tu');
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:= 1 to n do
c) if i mod 2= 0 then write('Cac so chan cua mang la:',i);
d) if i mod 2= 1 then write('Cac so le cua mang la:',i);
readln
end.

program crtg;
uses crt;
var n,i, j: integer;
A: array[1..1000] of byte;
tb: integer;
min,max: byte;
begin
clrscr;
writeln('Nhap do dai day A: '); read(n);
writeln('Nhap cac phan tu cua day: ');
for i:=1 to n do
begin
writeln('a[',i,'] = ');
repeat
read(a[i]);
until a < 100;
end;
for i:= 1 to n do
begin
if a[i] <> 1 then
begin
j:= 2;
while (a[i] mod j <> 0) do j:=j+1;
if j = a[i] then write(a[i]',');
end;
end;
tb:=0;
for i:=1 to n do
tb:=tb+a[i];
tb:=tb/n;
writeln('Gia tri trung binh cua day tren la: ',tb);
max:=a[1]; min:=a[1];
for i:=2 to n do
begin
if a[i] < min then min:=a[i];
if a[i] > max then max:=a[i];
end;
writeln('Gia tri lon nhat cua day la ',max);
writeln('Gia tri nho nhat cua day la ',min);
readln
end.

Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long x,n;
int main()
{
cout<<x<<n;
cout<<pow(x,n);
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
long long x,i,n,ln;
int main()
{
ln=LLONG_MIN;
cin>>n;
for (i=1; i<=n; i++)
{
cin>>x;
ln=max(ln,x);
}
cout<<ln;
return 0;
}

Bạn ơi câu b điều kiện bạn cho là \(0\le n\le10\) sao lại thêm 1 điều kiện nữa là x>0
Câu lệnh trên giải bài toán tìm UCLN của M và N. Với ý tưởng, kiểm tra xem M, N có giá trị khác nhau không. Nếu có thực hiện kiểm tra giá trị nào lớn hơn. Giá trị lớn hơn sẽ được gán bằng hiệ của số lớn trừ số bé. Việc làm thế cứ lặp đi lặp lại đến khi hai giá trị bằng nhau thì đưa ra UCLN của nó.
Đáp án: A