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
Thu Hiền
Xem chi tiết
Nguyễn Thị Thanh Trúc
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 3 2021 lúc 19:53

uses crt;

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

i,n,max:integer;

begin

clrscr;

repeat

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

until (1<n) and (n<=255);

for i:=1 to n do 

  begin

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

end;

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

for i:=1 to n do 

  write(a[i]:4);

writeln;

max:=a[1];

for i:=1 to n do 

 if max<a[i] then max:=a[i];

writeln('Gia tri lon nhat la: ',max);

readln;

end.

Nguyễn Thị Thanh Trúc
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 3 2021 lúc 19:55

uses crt;

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

i,n,vt:integer;

begin

clrscr;

repeat

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

until (1<n) and (n<=255);

for i:=1 to n do 

  begin

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

end;

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

for i:=1 to n do 

  write(a[i]:4);

writeln;

vt:=n;

for i:=n downto 1 do 

  if a[i]>0 then 

begin

if vt>i then vt:=i;

end;

if (vt=n) and (a[n]<=0) then writeln('Trong day khong co so duong')

else writeln('Chi so so hang duong dau tien trong day la: ',vt);

readln;

end.

Tinh Hy
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 12 2021 lúc 22:58

Câu 3: 

#include <bits/stdc++.h>

using namespace std;

string a[1000];

int n,i,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>a[i];

if (a[i]=='a') dem++;

}

cout<<dem;

return 0;

}

Khách vãng lai
Xem chi tiết
Văn Bảo Nguyễn
30 tháng 12 2021 lúc 17:42

Để đánh số trang một quyển sách dày 295 trang cần dùng bao nhiêu chữ số?

Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 23:43

a:

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=0;

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

cout<<s;

return 0;

}

Huỳnh Thanh Trúc
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 5 2021 lúc 9:59

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 

  if a[i]<0 then t:=t+a[i];

writeln(t);

readln;

end.

Phan Văn Thái Dương
Xem chi tiết
Hao Hoang
Xem chi tiết
Võ Đức Dũng
5 tháng 10 2021 lúc 6:56

uses crt;

var i,n,n,d; integer;

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

begin

clrscr;

readln(n);

for i:=1 to n do 

readln(a[i]);

readln(m);

for i:=1 to n do

if a[i] = m then d:=d+1;

write(d);

readln;

end.

Lê Hoàng Bách
Xem chi tiết
datcoder
17 tháng 10 2023 lúc 21:22

Program HOC24;

uses crt;

var i,n: integer;

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

t: longint;

begin

clrscr;

readln(n); 

t:=0;

for i:=1 to n do

begin

read(a[i]);

if (a[i] mod 2=0) and (a[i] mod 5=0) then t:=t+a[i];

end;

readln;

write(t);

readln;

end.