Câu 1: https://pastebin.com/2QGwMzpD

Câu 2: https://pastebin.com/ajKiwv44

Câu 3: https://pastebin.com/xcLn9HLn

Câu 4: https://pastebin.com/Mrje1ZWx

GeoGebra là một phần mềm toán học bổ ích và được cung cấp hoàn toàn miễn phí. Đây thực sự là công cụ hỗ trợ đắc lực dành cho những ai đang phải thực hiện việc nghiên cứu hoặc làm việc với số học, hình học, bảng tính, đồ họa, số liệu thống kê, đại số và giải tích.

Câu 2: Viết chương trình nhập vào n phần tử kiểu số nguyên . Thực hiện các công việc sau:

+ In mảng vừa nhập ra màn hình.

+ Tính tổng các phần tử.

+ In ra phần tử lớn nhất.

+In ra phần tử nhỏ nhất.

program mang;

uses crt;

var : tong,n,i,max,min:integer;

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

begin

clrscr;

tong:=0;

write('Nhap so phan tu:');readln(n);

for i:=1 to n do begin

write('Nhap phan tu thu ',i,':');readln(a[i]);

tong:= tong+a[i];

end;

max:=a[1]; min:=a[i];

for i:=2 to n do begin

if a[i] > max then max:=a[i];

if a[i]<min then min :=a[i];

end;

writeln('Tong cua day so la:',tong);

writeln('Phan tu lon nhat la:',max);

writeln('Phan tu nho nhat la:',min);

readln

end.

write(' Diem trung binh cua ',n,' mon hoc la:',tb);

readln

end.

Câu 2: Viết chương trình nhập vào n phần tử kiểu số nguyên . Thực hiện các công việc sau:

+ In mảng vừa nhập ra màn hình.

+ Tính tổng các phần tử.

+ In ra phần tử lớn nhất.

+In ra phần tử nhỏ nhất.

program mang;

uses crt;

var : tong,n,i,max,min:integer;

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

begin

clrscr;

tong:=0;

write('Nhap so phan tu:');readln(n);

for i:=1 to n do begin

write('Nhap phan tu thu ',i,':');readln(a[i]);

tong:= tong+a[i];

end;

max:=a[1]; min:=a[i];

for i:=2 to n do begin

if a[i] > max then max:=a[i];

if a[i]<min then min :=a[i];

end;

writeln('Tong cua day so la:',tong);

writeln('Phan tu lon nhat la:',max);

writeln('Phan tu nho nhat la:',min);

readln

end.

Mình làm đây nhé.

https://pastebin.com/30TMyAWn

B. 24MB

thật không bạn ???? mình thấy sai sai

Mình làm đây nhé: https://hastebin.com/kijavakeko.pas

2b:

- đầu tiên nhập một số n bất kỳ

- sau đó chúng ta cho for chạy từ 1 tới số nguyên vừa nhập

- nếu số n vừa nhập chia hết cho số i trong for thì viết số i đó ra màn hình

2c:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if n mod i=0 then write(i:4);

readln;

end.

2b:

- đầu tiên nhập một số n bất kỳ

- sau đó chúng ta cho for chạy từ 1 tới số nguyên vừa nhập

- nếu số n vừa nhập chia hết cho số i trong for thì viết số i đó ra màn hình

2c:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

if n mod i=0 then write(i:4);

readln;

end.

Mình làm ở đây

https://pastebin.com/0SYGG2Re