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.

7 tháng 5 2021

Khi nãy gửi nhầm 2 cái nha 

program Baitap1;

uses crt;

var Min ,n, i:integer;

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

begin

clrscr;

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

for i:=1 to n do begin

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

                        end;

Min:=A[1];

for i:=1 to n do if Min>A[i] then Min:=A[i];

write('So Nho Nhat Trong Mang La ',Min);

readln;

end.       

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

cin>>n;

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

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

if (a[i]%3==0) t+=a[i];

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if (x>0) t+=x;

}

cout<<t;

return 0;

}

Đề thiếu rồi bạn

type mang=array[1..10]of integer;

function demsochiahet(a:mang):integer;

var dem,i,n:integer;

begin

dem:=0;

for i:=1 to n do 

  if a[i] mod 7=0 then inc(dem);

demsochiahet:=dem;

end;

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,dem1,dem2;

int main()

{

cin>>n;

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

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

dem1=0;

dem2=0;

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

{

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

else dem2++;

}

cout<<dem1<<" "<<dem2;

return 0;

}