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.

4 tháng 4 2022

MỌI NGƯỜI ƠI GIÚP EM VỚI Ạ EM CẢM ƠN NHIỀU LẮM Ạ 

Viết chương trình nhập vào dãy số nguyên có N phần tử. - Tính tổng các số lẽ. - Tính tích các số chẵn.

4 tháng 4 2022

Viết chương trình nhập vào dãy số nguyên có N phần tử. - Tính tổng các số lẽ. - Tính tích các số chẵn.

mọi người giúp em với em cảm ơn ạ

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t1,t2;

int main()

{

cin>>n;

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

t1=0;

t2=1;

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

{

if (a[i]%2!=0) t1+=a[i];

else t2*=a[i];

}

cout<<t1<<endl;

cout<<t2<<endl;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],i;

cin>>n;

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

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

if (A[i]>0)

{

cout<<A[i];

return 0;

}

return 0;

}

uses crt;

var i,n:integer;

s:real;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do 

 s:=s+(i/(i*sqr(i+5)));

writeln(s:4:2);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long i;

int main()

{

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

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long dem,x,n,i,t;

int main()

{

cin>>n;

t=0;

dem=0;

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

{

cin>>x;

if (x%2==0)

{

dem++;

t+=x;

}

}

cout<<dem<<" "<<t;

return 0;

}

21 tháng 1 2022

Ở free pascal ạ

5 tháng 6 2021

uses crt;
var i,j,m:integer;
t:longint;
a:array[1..100,1..100]of integer;
begin
  clrscr;
  write('nhap m:');readln(m);
  for i:=1 to m do
  for j:=1 to m do
  begin
    write('a[',i,',',j,']=');readln(a[i,j]);
  end;
  clrscr;
  writeln('ma tran da nhap la:');
  for i:=1 to m do
  begin
    for j:=1 to m do
    write(a[i,j]:5);writeln;
  end;
  i:=1;j:=1;
  while i<=m do
  begin
    t:=t+a[i,j];
    inc(i);inc(j);
  end;
  writeln('tong cac phan tu nam tren duong cheo chinh la: ',t);
  readln;
end.

 

Tham khảo:

program oken;
uses crt;
var i,n:integer;
begin
        clrscr;
        write('nhap 1 so bat ky: '); readln(n);
        writeln('BANG CUU CHUONG ',n);
        for i:=1 to 9 do
                writeln(n,' * ',i,' = ',n*i);
        readln;
end.