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.

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

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

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

writeln;

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

writeln(t);

readln;

end.

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do

  if i mod 2=1 then t:=t+i;

writeln(t);

readln;

end.

21 tháng 12 2018

Sữa lỗi:

phần khai báo:a:array[1..250] of integer (ngoặc vuông ko phải ngoặc tròn)

#include <bits/stdc++.h>

using namespace std;

long long t,i,n,x;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if (x<0) t=t+x;

}

cout<<t;

return 0;

}

19 tháng 4 2020

Câu 1: Bạn ghi rõ đề hơn nhé.

Câu 2:

Program hotrotinhoc;

var n,i: integer;

s: real;

begin

s:=0;

n:=0;

while n<10 do

begin

n:=n+1;

if n mod 2=1 then s:=s-(1/3*n) else s:=s+(1/3*n);

end;

write(s:1:2);

readln

end.

 

13 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<"a truoc khi doi la:"<<fixed<<setprecision(2)<<a<<endl;

cout<<"b truoc khi doi la:"<<fixed<<setprecision(2)<<b<<endl;

swap(a,b);

cout<<"a sau khi doi la:"<<fixed<<setprecision(2)<<a<<endl;

cout<<"b sau khi doi la:"<<fixed<<setprecision(2)<<b;

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] mod 3=0) and (i mod 2=0) then t:=t+a[i];

writeln('Tong cac so chia het cho 3 o vi tri chan la: ',t);

readln;

end.