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ư Huỳnh
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 5 2022 lúc 10:52

uses crt;

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

i,n,dem:integer;

begin

clrscr;

readln(n);

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

dem:=0;

for i:=1 to n do if a[i] mod 2=0 then inc(dem);

writeln('so so chan la: ',dem);

writeln('so so le la: ',n-dem);

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.

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

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

uses crt;
var a:array[1..1000000] of longint;
      n,i,d: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=0 then inc(d);
            end;
      write('Co ',d,' gia tri la so chan');
      readln;
end.

Nguyễn Thuỳ Dung
Xem chi tiết
Trần Ái Linh
8 tháng 5 2021 lúc 23:57

program im_14424;

uses crt;

var A: array[1..1000000] of longint;

S: longint;

i: integer;

begin

clrscr;

write('Nhap vao n: ');

readln(n);

S:=0;

for i:=1 to n do

begin

write('Nhap phan tu thu`,i,':');

readln(A[i]);

S:=S+i;

end;

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
Huỳnh Tiến Thiên
Xem chi tiết
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.

Thiên Kim
Xem chi tiết