Tin học Tin 11 thi học kì 2

[Hjdndo]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

câu 1 : viết ct thực hiện các công việc sau. a) Nhập mảng A gồm n phần tử, mỗi phần tử là một số nguyên . b) ghi mảng A vào tệp D:/dl.inp với cấu trúc như sau: dòng thứ nhất : n . Dòng thứ hai : các số nguyên ( mỗi số cách 1 dấu cách). Câu 2 : a) đọc dữ liệu từ tệp D:/dl.inp (ở câu 1) rồi tính tổng các số nguyên âm, tổng các số nguyên dương . b) in tổng các số nguyên, tổng các số nguyên dương ra màn hinh. Giúp với mai thi

 

[ka1412]

C1 (mình chỉ làm phần in thôi nhé):

assign(f,'D:\dl.inp');rewrite(f);
writeln(f,n);
for i:=1 to n do write(f,a[i],#32);
close(f);

C2:

assign(f,'D:\dl.inp');reset(f);
for i:=1 to n do
begin
readln(f,a[i]);
if a[i]<0 then s1:=s1+a[i];
if a[i]>0 then s2:=s2+a[i];
end;
close(f);
writeln('Tong cac so nguyen am:',s1);
write('Tong cac so nguyen duong:',s2);

P/s: Mình chỉ viết phần chính thôi. Phần còn lại bạn tự lm nha/

 

[ka1412]

Dòng 3 câu 1 là a nha. Máy mình tự nhiên k sửa bài đc.

 

[Hjdndo]

Dòng 3 câu 1 là a nha. Máy mình tự nhiên k sửa bài đc.

Câu 1 bạn làm rõ ra được ko dòng thứ nhất :n dòng thứ hai : các số nguyên là sao