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

Những câu hỏi liên quan
Như Thuần Nguyễn Đặng
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 4 2021 lúc 21:53

Uses crt;

Const fi='dl.int'

Var f1:text;

A:array[1..100] of integer;

I,n,t: integer;

Begin

Clrscr;

Assign(f1,fi); reset(f1);

Readln(f1,n);

For i:=1 to n do

Read(f1,a[i]);

T:=0;

For i:=1 to n do

T:=t+a[i];

Writeln(t);

Close(f1);

Readln;

End.

Hoàng Thị Minh Tuyết
Xem chi tiết
Phạm Đức Huy
Xem chi tiết
Felix MC-Gamer
Xem chi tiết
Nguyễn Đức Anh Khoa
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 1 2021 lúc 12:30

const fi='tong.inp'

fo='tong.out'

var f1,f2:text;

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

n,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

Nguyễn Văn Thường
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2022 lúc 18:51

const fi='input.txt'

fo='soan.txt'

var f1,f2:text;

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

i,n:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

readln(f1,a[n]);

end;

for i:=1 to n do 

  if a[i]<0 then writeln(f2,a[i]:4);

close(f1);

close(f2);

end.

Nguyễn Gia Bảo
Xem chi tiết
Hiếu Phùng
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2022 lúc 23:18

uses crt;

const fi='dayso.inp',

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

i,n:integer;

f1:text;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,n);

for i:=1 to n do readln(f1,a[i]);

for i:=1 to n do write(a[i]:4);

close(f1);

readln;

end.

Ngọc Ánh
Xem chi tiết
Nguyen Hung
3 tháng 5 2021 lúc 21:04

Uses crt;

Var i,n,tong:integer;

      a:array[1..10000] of integer;

      f1,f2:text;

Begin

clrscr;

Assign(f1,'tinhtong.inp');

Assign(f2,'tinhtong.out');

tong:=0;

Reset(f1);readln(f1,n);

For i:= 1 to n do

Begin

read(f1,a[i]);

tong:=tong+a[i];

End;

close(f1);

rewrite(f2);

Writeln(f2,tong);

Readln;

End.

Sự tâm
Xem chi tiết