Tin học 1. Bài tập 1: Viết chương thực hiện các công việc sau: a. Nhập số nguyên dương n (n<=100) và mảng A gồm n số nguyên. b. Hãy ghi các phần tử của mảng A 18/07/2021 By Arya 1. Bài tập 1: Viết chương thực hiện các công việc sau: a. Nhập số nguyên dương n (n<=100) và mảng A gồm n số nguyên. b. Hãy ghi các phần tử của mảng A vào tệp MANG.TXT sao cho mỗi số nằm trên một dòng.
uses crt;var f:text; i,n:longint; a:array[1..100]of longint;beginclrscr; write(‘Nhap n (n<=100): ‘);readln(n); for i:=1 to n do begin write(‘a[‘,i,’]= ‘);readln(a[i]); end; assign(f,’MANG.TXT‘);rewrite(f); for i:=1 to n do writeln(f,a[i]); close(f); readlnend. Trả lời
uses crt;var i,n: integer;f: text;a: array [1..100] of integer;beginclrscr;write(‘So phan tu: ‘); readln(n);for I:=1 to n do begin write(‘a[‘,i,’]=’); readln(a[i]); end;assign(f,’mang.txt’);rewrite(f);for I:=1 to n do write(f,a[i],’ ‘); close(f);readln;end. đã test mong đc vote! tệp sau khi hoàn thành thường đc lưu ở: C:\FPC\3.2.0\bin\i386-win32\ và tìm đến file mang.txt nhé! Trả lời