bạn hỏi khó thế, đây mới là phần cho lớp 8 thôi mà

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,nn;

int main()

{

cin>>n;

nn=LLONG_MAX;

for (i=1; i<=n; i++)

{

cin>>x;

nn=min(nn,x);

}

cout<<nn;

return 0;

}

mình có bản Pascal không bạn

Bạn kham khảo bài của mình nhé!

Program nhap_so_n;

Uses crt;

Var i,n,s:integer;

Begin clrscr;

Write('Nhap so n= ');Readln(n);

S:=0;

For i:=1 to n do

If i mod 2 = 0 do S:=S+i;

Writeln;

Write('tong cac so chan la ',S);

Readln;

End.

Mình chúc bạn học tốt!

Var s,n,i,so:integer;

Begin

Write('Nhap so luong so n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i)readln(so);

If so mod 2 = 0 then s:=s+so;

End;

Write('Tong cac so chan la ',s);

Readln;

End.

Program HOC24;

var i,n,t: integer;

a: array[1..32000] of integer;

begin

write('Nhap n= '); readln(n);

for i:=1 to n do if i=n then readln(a[i]) else read(a[i]);

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('Tong cac so chia het cho 2 la: ',t);

readln

end.

Viết chương trình nhập vào số nguyên n và tính tổng các số lẻ (các số lẻ là số không chia hết cho 2) trong khoảng từ 1 đến n ( ví dụ nhập = 10, ta sẽ có tổng sau s=1+3+5+7+9=25)

uses crt;

var i,n,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

for i:=1 to n do 

 if i mod 2=1 then s:=s+i;

writeln(s);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

if (i%3==0) cout<<i<<" ";

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

if (i%3==0) cout<<i<<" ";

return 0;

}