Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
lamgi hoi

Câu 1: Viết chương trình nhập n phần tử mảng 1 chiều là các số nguyên từ bàn phím, ghi mảng vừa nhập vào tệp MANG1CHIEU.TXT. Tìm giá trị nhỏ nhất trong mảng và đưa kết quả ra màn hình

Câu 2: Viết chương trình nhập 1 xâu bất kỳ từ bàn phím, In ra xâu sau khi đã loại bỏ các kí tự là chữ cái và ghi vào tệp CHUSO.TXT

giúp em với ạ . em cảm ơn nhiều...

 

Anh Phạm
25 tháng 7 2021 lúc 14:23

cau 1:

uses crt;

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

n,i,min: integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

min:=a[1];

for i:=2 to n do

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

writeln(a[i]);

readln;

end.

cau 2:

uses crt;

g:text;

s:string;

const fo='CHUSO.TXT'

begin

assign(g,fo);

rewrite(g);

readln(s);

for i:=1 to length(s) do

if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);

writeln(g,s);

end.


Các câu hỏi tương tự
Phước Thiện Lê Hoàng
Xem chi tiết
Bé Kunz
Xem chi tiết
Huy Hoàng Phạm
Xem chi tiết
Trung Nguyễn
Xem chi tiết
Nguyễn Quang Kiệt
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Nghia Phan
Xem chi tiết
trần nguyễn tuyết trinh
Xem chi tiết
Thảo Nguyễn
Xem chi tiết