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 4 2017

1/

program uoc;

uses crt;

var n,i,dem,x:word;

a:array[1..20] of longint;

begin

clrscr;

write('nhap so phan tu cua day:') ;readln(n);

while n>20 do

begin

write('nhap lai so phan tu thoa man toi da la 20 phan tu:');

readln(n);

end;

writeln('nhap cac phan tu cua mang:');

for i:=1 to n do

begin

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

end;

write('nhap so nguyen x:'); readln(x);

dem:=0;

for i:=1 to n do

if x mod a[i] =0 then

begin

dem:=dem+1;

writeln(a[i],' la uoc cua ',x);

end;

if dem=0 then writeln('khong co phan tu la uoc cua ',x)

else write('co ',dem,' phan tu la uoc cua ',x);

readln;

end.banhqua

5 tháng 3 2023

#include <iostream>
using namespace std;

int main() 

{

         int N, sum = 0, num;

         float average;

         cout << "Nhap so phan tu cua day: ";

         cin >> N;

        // Vòng lặp để nhập dữ liệu cho các phần tử trong dãy

       for (int i = 0; i < N; i++) {

              cout << "Nhap phan tu thu " << i+1 << ": ";

              cin >> num;

              sum += num; // tính tổng của dãy

}

// tính trung bình cộng của dãy

average = (float) sum / N;

cout << "Trung binh cong cua day la: " << average;

return 0;

}

  

Câu 1: 

uses crt;

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

i,n,min: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];

writeln(min);

readln;

end.

Câu 2:

uses crt;

var st:string;

begin

clrscr;

write('Nhap xau:'); readln(st);

writeln('Xau ',st,' co ',length(st),' phan tu');

readln;

end.

26 tháng 12 2020

Uses crt;

Var a,b: real;

Begin

Clrscr;

Writeln('Nhap a,b');

Realn(a,b);

If (a>0) and (b>0) then writeln('Tich cua a,b la:', a*b)

else writeln('Yeu cau nhap lai');

Readln;

End.

26 tháng 12 2020

Cảm ơn ạ

Câu 2: 

uses crt;

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

i,n,min,dem1,dem2,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

max:=a[1];

for i:=1 to n do 

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

writeln('Gia tri lon nhat la: ',max);

dem1:=0;

dem2:=0;

t1:=0;

t2:=0;

for i:=1 to n do 

begin

if a[i] mod 2=0 then 

begin

inc(dem1);

t1:=t1+a[i];

end

else begin

inc(dem2);

t2:=t2+a[i];

end;

end;

writeln('So so chan la: ',dem1);

writeln('So so le la: ',dem2);

writeln('Tong cac so chan la: ',t1);

writeln('Tong cac so le la: ',t2);

readln;

end.

Câu 1: 

const fi='dulieu.inp';

fo='ketqua.out';

var f1,f2:text;

m,n,t,i:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,m,n);

t:=0;

for i:=m to n do 

  if i mod 2=1 then t:=t+i;

writeln(f2,t);

close(f1);

close(f2);

end.

25 tháng 12 2020

a ở đây là bán kính hay đường kính bro

25 tháng 12 2020

Bán kính ạ

27 tháng 7 2021

#include <bits/stdc++.h>

using namespace std;

int main()
{
    ios_base::sync_with_stdio(0);
    cin.tie(0); cout.tie(0);
    int t,n,a[100001],s[100001],Max,sum,Min[100001],Max2;
    cin >> t;
    for (int i=1;i<=t;i++)
    {
        Max=INT_MIN;
        sum=0;
    cin >> n;
    s[0]=0;
    Min[0]=0;
    Max2=a[1];
    for (int i=1;i<=n;i++)
        {
            cin >> a[i];
            s[i]=s[i-1]+a[i];
            if (a[i]>Max) Max=a[i];
            if (a[i]>0) sum+=a[i];
            Min[i]=min(Min[i-1],s[i]);
            Max2=max(Max2,s[i]-Min[i-1]);
        }
    if (sum==0) cout << Max;
    else cout << sum;
    cout << ' ' << Max2 << '\n';
    }
    return 0;

}

QT
Quoc Tran Anh Le
Giáo viên
28 tháng 7 2021

Vị trí MAX = INT_MIN chạy sẽ có lỗi hoặc MAX cố định bằng 0 do chưa có biến xác định kìa em.