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.

24 tháng 4 2023

giúp mình với

24 tháng 4 2023

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

i,n,d:integer;

sd,s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

For i:=1 to n do

If a[i] > 0 then

Begin

d:=d+1;

sd:=sd+a[i];

End;

Writeln('Tong cac so vua nhap la ',s);

Write('Co ',d,' so nguyen duong va tong cua chung la ',sd);

Readln

End.

22 tháng 4 2023

program TongSoVaSoDuongTrongDay;

var

      n, i, tong, dem, tongDuong: integer;

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

begin

      tong := 0;

      dem := 0;

      tongDuong := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      write('Nhap day so n: ');

      for i := 1 to n do

      begin

            readln(a[i]);

            tong := tong + a[i];

            if a[i] > 0 then

            begin

                  dem := dem + 1;

                  tongDuong := tongDuong + a[i];

            end;

      end;

      writeln('Tong cac phan tu trong day la: ', tong);

      writeln('So phan tu duong trong day la: ', dem);

      writeln('Tong cac so duong trong day la: ', tongDuong);

      readln;

end.

23 tháng 4 2023

Số âm thì làm sao vậy bạn?

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t,dem;

int main()

{

cin>>n;

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

t=0;

dem=0;

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

if (a[i]>0)

{

t+=a[i];

dem++;

}

cout<<t<<endl;

cout<<dem;

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

writeln(t);

readln;

end.

Bài 1: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

Bài 2: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do

  if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

mình ghi dư cái số 4 bên phần BAI7.INP nha mn

 

bằng python nha mọi người

 

1 tháng 5 2023

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

s:longint;

i,n:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

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

If a[i] > 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln

End.

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.

15 tháng 5 2022

program C1;

uses crt;

Var A:array[1..100] of Integer ; 

      Tc,  Tl : Integer ; 

      n,  i: Btybe ; 

begin

    clrscr ;

    Write( ' nhap n: ' ) ; Readln(n) ;

    For  i:=1 to n do

    begin

        Write ( ' A[ ' ,i, '] = ' ) ; Readln (A[i]) ; 

   end ;

   Tc: = 0 ;   Tl: = 0 ; 

   For i: = 1 to n do

       If  A[i] mod 2=0  then Tc:=Tc+A[i]

         else Tl:= Tl + A[i] ; 

  Writeln ( ' Tong so chan : ' ; Tc) ; 

  Writeln ( ' Tong so le : ' , Tl ) ;

  readln ; 

end.

15 tháng 5 2022

cám ơn