Question

bai 1 :Viết chương trình thực hiệncasc công việc sau:

a)nhập mảng A gồm n phần tử và mỗi phần tử là một số nguyên

b) ghi mảng A vào tệp D:\dulieu.inp với cấu trúc sau:

Dòng thứ nhất:n

Dòng thứ hai : các số nguyên, mỗi số cách nhau một dấu cách

Bài 2: viết chương trình thực hiện các công việc sau

a) đọc dữ liệu từ tệp D:\dulieu.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 âm, nguyên dương ra màn hình

(Mọi người giúp mình với mai mình thi rồi cảm ơn nhiều ạ)

Answer 1

1,

a, var A: array[1..500] of integer;

i,n:integer;

begin

write(' n la ');readln(n);

for i:=1 to n do

begin

write('a',i,'la'); readln(a[i]);

end;

readln

end.