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.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t;
return 0;
}
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
uses crt;
var n,x:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('n=',n);
x:=n;
if x mod 2=0 then writeln(x,' la so chan')
else writeln(x,' la so le');
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
a)
var a:array[1..100] of longint;
n,i,max,d:longint;
begin
read(n);
for i:=1 to n do
write('nhap chieu cao, don vi cm');read(a[i]);
b) max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('ban cao nhat cao',max);
c) for i:=1 to n do
if a[i]>160 then d:=d+1;
write('so ban cao hon 160 cm la: ',d);
end.
program Khai_bao;
uses CRT;
var a, b:longint;
begin
clrscr;
write('Hay nhap chieu dai');
readln(a);
write('Hay nhap chieu rong');
readln(b);
if (a=0) and (b=0) then
begin
writeln('Loi, khong thuc hien phep tinh');
readln;
end
else
if (a>0) and (b>0) then
begin
writeln('Chu vi hinh chu nhat la ',(a+b)*2);
writeln('Dien tich hinh chu nhat la ',a*b);
readln;
end.