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
Lê Nguyễn Ánh Nguyệt
Xem chi tiết
Đào Cẩm
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 4 2021 lúc 20:37

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

readln;

end.

Minh Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 23:26

uses crt;

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

i,n:integer;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

readln;

end.

Yeu DUong nhat
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 9:38

uses crt;

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

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

readln;

end.

༺ミ𝒮σɱєσиє...彡༻
Xem chi tiết
nuqueH
13 tháng 5 2022 lúc 21:41

tham khảo:

uses crt;

var n,i:integer;

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

begin

clrscr;

write(‘nhap so phan tu cua day:’);readln(n);

for i:=1 to n do

begin

write(‘a[‘,i,’]=’);readln(a[i]);

end;

writeln(‘day so da nhap:’);

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

readln;

end.

Minh
13 tháng 5 2022 lúc 21:42

tham khảo

uses crt;

var n,i:integer;

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

begin

clrscr;

write(‘nhap so phan tu cua day:’);readln(n);

for i:=1 to n do

begin

write(‘a[‘,i,’]=’);readln(a[i]);

end;

writeln(‘day so da nhap:’);

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

readln;

end.

Nguyễn Lê Phước Thịnh
13 tháng 5 2022 lúc 23:05

uses crt;

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

i,n,tam,j:integer;

begin

clrscr;

readln(n);

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

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

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

readln;

end.

Huyền Trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 5 2021 lúc 20:30

uses crt;

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

i,n,h:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

h:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then h:=h-a[i];

writeln(h);

readln;

end.

Sách Giáo Khoa
Xem chi tiết
Hưng Trần Vĩnh
25 tháng 3 2018 lúc 20:16
VAR i,n:Integer; a :array[1..100] of Integer; BEGIN write('nhap so phan tu ');readln(N); for i := 1 to N do BEGIN write('phan tu thu ',i,' ');readln(A[i]); END; for i := 1 to N do BEGIN writeln; write(a[i]); END; readln; END.
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
11 tháng 11 2018 lúc 18:07

Lê Thị Thu Phương
7 tháng 6 2021 lúc 21:04

uses crt;
var a:array[1..1000000] of longint;
      n,i,s:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
                  if a[i] mod 2=1 then inc(s,a[i]);
            end;
      write('Tong cac so le: ',s);
      readln;
end.

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
2 tháng 9 2017 lúc 7:03

Lê Thùy Dương
Xem chi tiết