uses crt;

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

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

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

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

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

Program HOC24;

var i,n: integer;

c: array[1..1000] of integer;

f: text;

begin

assign(f,'MANG3.TXT');

reset(f);

readln(f,n);

for i:=1 to n do read(f,c[i]);

close(f);

for i:=1 to n do if c[i] mod 2=1 then write(c[i],' ');

readln

end.

cứu e với mn

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,j;

bool kt;

int main()

{

freopen("nguyento.inp","r",stdin);

freopen("nguyento.out","w",stdout);

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

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

if (a[i]>1) 

{

kt=true;

for (j=2; j*j<=a[i]; j++)

if (a[i]%j==0) kt=false;

if (kt==true) cout<<a[i]<<" ";

}

return 0;

}

const fi='tong.inp'

fo='tong.out'

var f1,f2:text;

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

n,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

Program hotrotinhoc_hoc24;

const fi='dlv.inp';

fo='dlr.out';

var i,n,t: integer;

f: text;

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

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:=1 to n do read(f,a[i]);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

t:=0;

for i:=1 to n do t:=t+a[i];

write(f,t);

close(f);

end;

begin

ip;

out;

end.

Có thể tạo tệp “bangDiem.txt" bằng cách chỉnh sửa và bổ sung bảng trong Hình la ở Bài 2; từ Word hay Excel, thao tác Copy\Paste vào cửa sổ của Notepad hay cửa sổ soạn thảo của Python; ghi lưu thành tệp có định dạng text.

- Đọc từng dòng của tập đầu vào.

- Chuyển đổi mỗi mục của danh sách sang kiểu dữ liệu cần thiết và nối thêm vào danh sách tương ứng trong chương trình (tham khảo chương trình ở Hình 4).

Trong Python, nếu một dòng gồm nhiều mục khác kiểu dữ liệu, xen kẽ nhau, thì phải truy cập từng phần tử của danh sách và chuyển từ xâu kí tự thành kiểu dữ liệu đúng mô tả.

Các thao tác với tệp dữ liệu

Đầu vào là tệp thuần văn bản chữ và số (đuôi tên tệp “txt”) gồm nhiều dòng; mỗi dòng gồm nhiều từ, mỗi từ là một mục dữ liệu, phân cách bằng khoảng trống.

Các bước thực hiện như sau:

Bước 1. Mở tệp để đọc hay viết, sử dụng hàm open () như ví dụ ở Hình 5.

Bước 2. Đọc từ tệp, có thể dùng các phương thức read(), readline(), readlines() kết hợp với split():

read().split() : Đọc từng từ và nối liền toàn bộ các dòng thành một danh sách các từ. Sử dụng khi tệp ngắn và cần xử lí toàn bộ nội dung tệp.

readline().split() : Đọc một dòng, trả về danh sách các từ, thường dùng nhất. readlines() : Đọc toàn bộ tệp, trả về danh sách các dòng, mỗi dòng là một xâu kí tự, kết thúc bằng ‘\n (dấu xuống dòng).

Bước 3. Xuất ra tệp thuần văn bản: có thể dùng hàm print, sau khi đã chuyển đầu ra chuẩn từ màn hình sang tệp đã mở để viết vào như sau:

Bước 4. Đóng tệp, dùng phương thức close().

Lưu ý: Nếu giữa các từ được phân cách nhau bằng dấu phẩy thì ta có tệp kiểu “csv” (comma separated value) và cần dùng split(',') thay vì dạng mặc định split(). Cần chuyển thành kiểu danh sách (hay mảng) nên sẽ kết hợp xử lí bằng split(',').

Đây là một bài tập lập trình, dưới đây là đoạn mã Python để thực hiện các yêu cầu trong bài tập:

`python
import os

Tạo tệp DEBALDAT trong ổ đĩa D
with open('D:/DEBALDAT', 'w') as f:
data = input("Nhập dữ liệu: ")
f.write(data)

Đọc dữ liệu từ tệp DEBALDAT
with open('D:/DEBALDAT', 'r') as f:
data = f.read()

Tìm số nhỏ nhất và ghi vào tệp SONHONHAT.OUT
numbers = [int(x) for x in data if x.isdigit()]
min_number = min(numbers)
with open('D:/SONHONHAT.OUT', 'w') as f:
f.write(str(min_number))

Tính tổng các số chẵn và ghi vào tệp SOCHAN.OUT
even_numbers = [int(x) for x in data if x.isdigit() and int(x) % 2 == 0]
sum_even_numbers = sum(even_numbers)
with open('D:/SOCHAN.OUT', 'w') as f:
f.write(str(sum_even_numbers))

Đếm số kí tự dấu cách và ghi vào tệp DAUCACH.OUT
num_spaces = data.count(' ')
with open('D:/DAUCACH.OUT', 'w') as f:
f.write(str(num_spaces))

Xóa các kí tự dấu cách và ghi vào tệp KETQUA.OUT
data_without_spaces = data.replace(' ', '')
with open('D:/KETQUA.OUT', 'w') as f:
f.write(data_without_spaces)

Xóa tệp DEBALDAT
os.remove('D:/DEBALDAT')
`

Lưu ý: Đoạn mã này chỉ thực hiện được trên hệ điều hành Windows, nếu sử dụng hệ điều hành khác cần thay đổi đường dẫn ổ đĩa.