Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
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.
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.
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;
}
Để đánh số trang một quyển sách dày 295 trang cần dùng bao nhiêu chữ số?
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;
}
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.
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.
Program FNG;
Uses crt;Var A: array[1..1000] of longint; n,i,s,da,sa: longint;Begin Clrscr; Write('Nhap n: '); Readln(n); s:=0; da:=0; sa:=0; For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); s:=s+A[i]; If A[i]<0 then Begin inc(da); sa:=sa+A[i]; End; End; Writeln('S = ',s); Writeln('Dem am = ',da) Write('Tong am = ',sa); ReadlnEnd.
Nhập mảng xong rồi làm gì nữa bạn?