\(a_1,a_2,a_3,...,a_n\)} cho...">
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 9 2017

B1: sum<---a1, i<---1
B2: i<---i+1
b3: nếu i<=n thì sum<---sum+i, quay lai b2
B4: In kq và kết thúc thuật toán

12 tháng 3 2019

Lời giải :

program hotrotinhoc ;

var a,n,i,SLN : integer ;

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

Begin

write('Nhap gia tri cua n='); readln(n);

writeln('nhap cac phan tu cua day so');

for i:=1 to n do

begin

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

end ;

SLN:=a[1];

for i:=2 to n do

if SLN< a[i] then SLN:=a[i];

write('So lon nhap trong day so la',SLN);

readln

end.

5 tháng 11 2018

Input :n,dãy A

Output: Tổng A( điều kiện phần tử A>= 0)

B1: Nhập n

B2: Nhập các phần tử

B3:Xét a1;a2;a3;...an >= 0 Nếu phần tử nào dương thì chuyển qua một danh sách

B4 S-< a1,a2,...an;

B5: Kết thúc thuật toán

25 tháng 10 2018

INPUT : Dãy A các số a1, a2, ..., aN (N >= 1)

OUTPUT: Giá trị MAX = max{a1, a2, ..., aN}.

thuật toán sau :

b1: MAX <- a1; I <- 1

b2: Nếu aI > MAX, gán MAX <- aI

b3: I <- I + 1

b4: Nếu I <= n, quay lại bước 2

b5: Thông báo giá trị MAX và kết thúc thuật toán

12 tháng 11 2019

Bước 1: Gán giá trị cho 2 và biến SUM= 0 và i=0.

Bước 2: Do i=0<100 nên chuyển tới bước 3. Nếu i>100 thì chuyển tới bước 4.

Bước 3:Tăng giá trị i thêm 1 và giá trị của SUM bằng SUM+i.

Bước 4: Thông báo giái trị SUM, thuật toán kết thúc.

Kết quả thực hiện thuật toán Sum = 5050.

11 tháng 2 2020

Bước 1: Gán giá trị cho 2 và biến SUM= 0 và i=0.

Bước 2: Do i=0<100 nên chuyển tới bước 3. Nếu i>100 thì chuyển tới bước 4.

Bước 3:Tăng giá trị i thêm 1 và giá trị của SUM bằng SUM+i.

Bước 4: Thông báo giái trị SUM, thuật toán kết thúc.

Kết quả thực hiện thuật toán Sum = 5050.

a) Xác định bài toán

-Input: Dãy n số

-Output: Tổng các số dương, tổng các số âm

b) Mô tả thuật toán

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

-Bước 2: t1←0; t2←0; i←1;

-Bước 3: Nếu a[i]>0 thì t1←t1+a[i]

nếu a[i]<0 thì t2←t2+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 t1,t2

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

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

writeln(t);

readln;

end.

Em cảm ơn nhiều ạ!

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;

}

27 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long p,q;

int main()

{

cin>>p>>q;

cout<<p+q<<" "<<p-q;

return 0;

}

27 tháng 12 2021

Ko hiểu chị