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.

b) 

uses crt;

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

i,n,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t1:=0;

t2:=0;

for i:=1 to n do 

  begin

if a[i]>0 then t1:=t1+a[i];

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

end;

writeln('Tong cac so duong la: ',t1);

writeln('Tong cac so am la: ',t2);

readln;

end. 

a)

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 

  t:=t+a[i];

writeln(t);

readln;

end.

18 tháng 11 2021

d

18 tháng 11 2021

D

18 tháng 11 2021

C ( chắc vậy )

18 tháng 11 2021

d

 

18 tháng 11 2021

B

18 tháng 11 2021

Em cảm ơn ạ!

18 tháng 11 2021

câu đầu B

 

18 tháng 11 2021

1. B

2. D

21 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,tb;

int main()

{

cin>>a>>b;

tb=(a+b)/2;

cout<<fixed<<setprecsion(1)<<tb;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long i;

int main()

{

for (i=20; i>=15; i--) cout<<i<<" ";

return 0;

}

24 tháng 7 2021

Program HOC24;

var S,i: integer;

begin

s:=0;

for i:=22 to 121 do s:=s+i;

write('S= ',s);

readln

end.