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.

21 tháng 12 2018

var

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

i,t:integer;

Begin

readln(n);

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

for i:=1 to n do

ì a[i]>0 then t:=t+a[i];

write(t);

readln

end.

20 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long t1,t2,i,n,x;

int main()

{

cin>>n;

t1=0;

t2=0;

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

{

cin>>x;

if (x%2==0) t1=t1+x;

else t2=t2+x;

}

cout<<t1<<" "<<t2;

return 0;

}

19 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,nn;

int main()

{

cin>>n;

nn=LLONG_MAX;

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

{

cin>>x;

nn=min(nn,x);

}

cout<<nn;

return 0;

}

23 tháng 12 2020

Bước 1: Nhập n và nhập dãy số

Bước 2: ln←0; i←1

Bước 3: Nếu ln<a[i] thì ln←a[i];

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Xuất ln

Bước 7: Kết thúc

23 tháng 11 2016

uses crt;

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

n, i, tsc, tsl: integer

begin

clrscr;

write('So phan tu cua mang la: '); readln(n);

while n<1 do begin

write('So phan tu chi tu 2 tro len, ban da nhap sai, nhap lai: '); readln(n);

end;

for i:=1 to n do begin

write('So thu ',i,' la: '); readln(a[i]);

end;

tsc:=0;

tsl:=0;

for i:=1 to n do

if a[i] mod 2 =0 then tsc:=tsc+a[i]

else tsl:=tsl+a[i];

writeln('tong cac so chan la: ',tsc);

write('tong so cac so le la: ',tsl);

readln;

end.

20 tháng 12 2017

Program bai1;

uses crt;

var i,n,s,s1: integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:= 1 to n do

if a[i] mod 2 = 0 then s:=s+a[i];

writeln('tong cac so duong = ' ,s);

for i:= 1 to n do

if a[i] mod 2 <> 0 then s1:=s1+a[i];

writeln('tong cac so le =' ,s1);

readln;

end.