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
Không Tên
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 1 2021 lúc 20:39

uses crt;

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

i,n,min,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

dem:=0;

for i:=1 to n do 

  if min=a[i] then inc(dem);

writeln('So phan tu co gia tri nho nhat trong day la: ',dem);

readln;

end.

Không Tên
5 tháng 1 2021 lúc 9:18

Mọi người làm nhanh hộ ạ, em đang cần gấp ạ, phiền mọi người ạ

 

Không Tên
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 1 2021 lúc 20:39

uses crt;

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

i,n,min,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

dem:=0;

for i:=1 to n do 

  if min=a[i] then inc(dem);

writeln('So phan tu co gia tri nho nhat trong day la: ',dem);

readln;

end.

Dương
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 10 2021 lúc 23:30

a: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n;i++)

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;
}

Dandelion
Xem chi tiết
★゚°☆ Trung_Phan☆° ゚★
25 tháng 2 2021 lúc 21:41

undefined

Theo C++ nhé bạn

Codeblacks 

Nguyễn Lê Phước Thịnh
25 tháng 2 2021 lúc 21:51

uses crt;

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

i,n,dem:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

repeat

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

until a[i]>0;

end;

writeln('Day so vua nhap la: ');

for i:=1 to 10 do 

  write(a[i]:4);

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem);

writeln;

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

readln;

end.

Thúy Đặng
Xem chi tiết
Thúy Đặng
23 tháng 10 2016 lúc 19:46

minh ghi bị nhầm cho dãy A gồm N số nguyên a1, a2...aN . trong dãy A có bao nhiêu phần tử là số lẻ , tính tống các phần tử lẽ đó.

tao quen roi
23 tháng 10 2016 lúc 20:03

var s,a1,an,n,c:integer;

begin

s:=0;

c:=0

write('nhap a1,an ');

read(n);

for i:=a1 to an do

if i mod 2=0 then

begin

s:=s+i;

c:=c+1;

end;

write ('so so thoa ycdb la : ',c);

write ('tong so thoa ycdb la : ',s);

readln

end.

 

Thủy Nguyễn
Xem chi tiết
Nguyễn Thái Phương Thảo
Xem chi tiết
ĐOÀN ĐỨC ANH
Xem chi tiết
ĐOÀN ĐỨC ANH
4 tháng 5 2022 lúc 20:08

giúp mình với

Hoàng Thị Minh Nguyệt
Xem chi tiết