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.

14 tháng 4 2019

Lời giải :

Câu 1 :

var ,j,dem,min,max : integer ;

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

begin

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

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

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

end;

{cau a};

for i:= 1 to n-1 do

for j:= 1 to n do

if a[i] > a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg ;

end;

write('Mang sap xep theo thu tu tang dan la');

for i:= 1 to n do write(a[i]:3);

{cau b va cau c};

max :=a[1]; min:= a[1] ; dem:=0;

for i:= 2 to n do

begin

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

if min > a[i] then min:=a[i];

if a[i]=min then dem:=dem+1;

end;

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

write('Gia tri nho nhat la:',min);

write('So luong phan tu nho nhat la',dem);

readln

end.

Câu 2 : tương tự câu 1 , bạn tự vận dụng nha

16 tháng 4 2019

cảm ơn mà bạn thiếu giá trị a,i,n,tg kìa

2: 

uses crt;

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

n,i: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]<0 then write(i:4);

readln;

end.

17 tháng 3 2021

câu 3 nữa bạn, mình ko hiểu đc câu đó

 

26 tháng 3 2022

uses crt;
var a: array[1..100] of longint;
    i,n,max,min: longint;

begin
    clrscr;
    readln(n);
    for i:=1 to n do
    begin
        write('Nhap so thu ',i,': '); 
        readln(a[i]);
    end;
    max:=a[1]; min:=a[1];
    for i:=1 to n do
    begin
        if max<a[i] then max:=a[i];
        if min>a[i] then min:=a[i];
    end;
    writeln('So lon nhat trong mang la: ',max);
    write('So nho nhat trong mang la: ',min);
    readln
end.

#include <bits/stdc++.h>

using namespace std;

long long a[100],n,i,s,t,ln,nn;

int main()

{

cin>>n;

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

cin>>a[i];

s=1;

t=0;

ln=a[1];

nn=a[1];

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

{

s=s*a[i];

t+=a[i];

ln=max(ln,a[i]);

nn=min(nn,a[i]);

}

cout<<s<<endl;

cout<<t<<endl;

cout<<ln<<endl;

cout<<nn;

return 0;

}

uses crt;

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

i,n,t,ln,nn:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do

  if a[i]>0 then t:=t+a[i];

ln:=a[1];

nn:=a[1];

for i:=1 to n do 

begin

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

if nn>a[i] then nn:=a[i];

end;

writeln(t);

writeln(ln);

writeln(nn);

readln;

end.

28 tháng 5 2022

cảm ơn bác nhiều nhe

 

20 tháng 4 2023

Uses crt;

var n,i,max,min: integer;

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

begin clrscr;

readln(n);

for i:=1 to n do read(a[i]); readln;

max:=a[1];

for i:=1 to n do if(max<a[i]) then max:=a[i];

writeln(max);

min:=a[1];

for i:=1 to n do if(min>a[i]) then min:=a[i];

writeln(min);

readln;

end.

3 tháng 5 2023

1)

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

i,n,t:integer;

Begin

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

For i:=1 to n do

Begin

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

End;

For i:=1 to n do

If a[i] > a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep tang dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

3 tháng 5 2023

2)

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

i,n,t:integer;

Begin

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

For i:=1 to n do

Begin

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

End;

For i:=1 to n do

If a[i] < a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep giam dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

Đề 1 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )-          Dòng 1: In ra dãy số đã sắp xếp theo thứ tự tăng dần-          Dòng 2: In ra các phần tử trong dãy số chia hết cho 3-          Dòng 3: Tính tổng các phân tử trong dãy số là số nguyên tốĐề 2 ; Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )-          Dòng 1: : In ra dãy số đã sắp xếp theo thứ tự giảm dần-          Dòng 2: In...
Đọc tiếp

Đề 1 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )

-          Dòng 1: In ra dãy số đã sắp xếp theo thứ tự tăng dần

-          Dòng 2: In ra các phần tử trong dãy số chia hết cho 3

-          Dòng 3: Tính tổng các phân tử trong dãy số là số nguyên tố

Đề 2 ; Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )

-          Dòng 1: : In ra dãy số đã sắp xếp theo thứ tự giảm dần

-          Dòng 2: In ra các phần tử trong dãy số chia hết cho 5

-          Dòng 3: Tính tổng các phân tử trong dãy số là số chính phương

Đề 3 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )

-          Dòng 1: : In ra dãy số đã sắp xếp những số chia hết cho 5 đứng đầu dãy

-          Dòng 2:  In ra các phần tử trong dãy số chia hết cho 7

-          Dòng 3: Tính tổng các phân tử trong dãy số là số đối xứng có trong dãy số

huhu giúp tớ với

0
10 tháng 4 2023

Uses crt;

var max,min,n,i,m,n: longint;

a: array[1..100] of longint

begin clrscr;

for i:=1 to n do begin

if(a[i] mod 2=0) then m:=m+a[i];

if(a[i] mod 2<>0) then n:=n+a[i];

end;

max:=a[1];

min:=a[1];

for i:=1 to n do begin

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

if(min>a[i]) then min:=a[i];

end;

Writeln('Tong cac phan tu chan: ',m);

Writeln('Tong cac phan tu le: ',n);

Writeln('Phan tu co gia tri lon nhat: ',max);

Writeln('Phan tu co gia tri nho nhat: ',min);

readln;

end.