1. Trang chủ
  2. » Thể loại khác

Mang 1 chieu

1 0 0

Đang tải... (xem toàn văn)

THÔNG TIN TÀI LIỆU

Thông tin cơ bản

Định dạng
Số trang 1
Dung lượng 20,5 KB

Nội dung

program mang mot chieu; program mang mot chieu; uses crt; var A Array[1 100]of integer; i,n,t,x integer; procedure nhap; begin for i =1 to n do begin write(''''Nhap phuong trinh thu '''',i,''''=''''); readln(a[i][.]

program mang_mot_chieu; uses crt; var A:Array[1 100]of integer; i,n,t,x:integer; procedure nhap; begin for i:=1 to n begin write('Nhap phuong trinh thu ',i,'='); readln(a[i]); end; end; procedure xuat; begin for i:=1 to n end; write(a[i]:3); procedure xoa; begin write('mang xoa:'); t:=1; repeat if x=a[i] then a[t]:=a[t+1]; n:=n-1; t:=t+1; until t>n; end; begin write('Nhap n ='); readln(n); nhap; xuat; xoa; xuat; readln; end

Ngày đăng: 13/04/2023, 09:49

TÀI LIỆU CÙNG NGƯỜI DÙNG

  • Đang cập nhật ...

TÀI LIỆU LIÊN QUAN

w