K
Khách

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.

28 tháng 12 2020

bạn thêm lênh xóa màn hình vào chương trình đi, nhìn nó sẽ gọn hơn đấy

lệnh clrscr; ngay dưới begin luôn

28 tháng 12 2020

bạn nhấn vào bất kì 1 nút nào trên bàn phím thử xem

17 tháng 2 2021

program (tự việt nhé)

begin

a:=14;

writeln('Bang cuu chuong 14');readln;

for i:=1 to 10 do begin

writeln(a*i); delay(1000);

end;

readln;

end.

uses crt;

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

i,n:integer;

begin

clrscr;

readln(n);

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

for i:=1 to n do write(a[i]:4);

readln;

end.

uses crt;

var x,n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then t:=t+x;

end;

writeln(t);

readln;

end.

program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do 
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);

end.

8 tháng 5 2023

Program HOC24;

var i,n: integer;

t: longint;

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

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Tong la; ',t);

readln

end.

1:

#include <bits/stdc++.h>

using namespace std;

long long n=10, a[10],i,nn;

int main()

{

for (i=1; i<=n; i++) cin>>a[i];

nn=a[1];

for (i=2; i<=n; i++) nn=min(nn,a[i]);

cout<<nn;

return 0;

}

30 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

double tb=(a+b)/2;

if (tb>=5) cout<<"ket qua dat";

else cout<<"ket qua khong dat";

return 0;

}

30 tháng 12 2021

sao ko giống gì mình học vậy:) mình nhwos sương sương là program rồi đến uses crt j mà ta

16 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

int main()

{

cout<<3*4<<endl;

cout<<3*4;

return 0;
}

28 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

int x,y;

int main()

{

cout<<"Nhap so x: ";

cin>>x;

cout<<"Nhap so y: ";

cin>>y;

cout<<"So x la: "<<x;

cout<<"\nSo y la: "<<y;

Return 0;

}

Câu 1: 

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.

Câu 2: 

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

dem:=0;

for i:=1 to n do 

  if a[i]<0 then inc(dem);

writeln(dem);

readln;

end.