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.

10 tháng 4 2023

program PSMCG;

uses crt;

const N = 5;

type MangA = array[1..N] of integer;

var A: MangA;

     i, max, min, sum: integer;

begin

     for i := 1 to N do

     begin

          write('Nhap phan tu A[', i, ']: ');

          readln(A[i]);

     end;

     writeln('Mang A: ');

     for i := 1 to N do

     begin

          write(A[i], ' ');

     end;

     writeln;

     max := A[1];

     min := A[1];

     for i := 2 to N do

     begin

          if A[i] > max then max := A[i];

          if A[i] < min then min := A[i];

     end;

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

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

     sum := 0;

     for i := 1 to N do

     begin

          sum := sum + A[i];

     end;

     writeln('Tong gia tri trong mang A la: ', sum);

     readln;

end.

18 tháng 12 2021

a: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t1,t2;

int main()

{

cin>>n;

t1=0;

t2=0;

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

{

cin>>x;

if (x%2==0) t1=t1+x;

else t2=t2+x;

}

cout<<t1<<" "<<t2;

return 0;

}

18 tháng 12 2021

a: #include <bits/stdc++.h>

using namespace std;

unsigned long long int n,i,t1,t2,x;

int main()

{

cin>>n;

t1=0;

t2=0;

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

{

cin>>x;

if (x%2==0) t1=t1+x;

else t2=t2+x;

}

cout<<t1<<endl;

cout<<t2;

return 0;

}

30 tháng 3 2023

program BaiTapMang;

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

begin
  // Nhập số phần tử của mảng
  write('Nhap so phan tu cua mang: ');
  readln(n);

  // Nhập giá trị từng phần tử của mảng
  for i := 1 to n do
  begin
    write('Nhap gia tri phan tu thu ', i, ': ');
    readln(a[i]);
  end;

  // Xuất mảng theo chiều ngang
  writeln('Mang vua nhap la:');
  for i := 1 to n do
    write(a[i], ' ');

  // Tìm giá trị lớn nhất và nhỏ nhất của mảng
  max := a[1];
  min := a[1];
  for i := 2 to n do
  begin
    if a[i] > max then
      max := a[i];
    if a[i] < min then
      min := a[i];
  end;
  writeln;
  writeln('Gia tri lon nhat cua mang la: ', max);
  writeln('Gia tri nho nhat cua mang la: ', min);

  // Tính tổng các phần tử âm của mảng
  s:= 0;
  for i := 1 to n do
  begin
    if a[i] < 0 then
      s:= s + a[i];
  end;
  writeln('Tong cac phan tu am cua mang la: ', s);

  readln;
end.

5 tháng 4 2023

Có cách nào khác để làm nhanh hơn k

uses crt;

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

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

t:=0;

for i:=1 to n do 

  if max=a[i] then t:=t+a[i];

writeln('Tong cac phan tu co gia tri lon nhat la: ',t);

readln;

end.

31 tháng 1 2021

Thầy em cho em viết đề như v em cũng k biết nửa 🥺

25 tháng 4 2023

Có cái nịt thôi

25 tháng 4 2021

uses crt;

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

i,n,max,min,t: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 

 write(a[i]:4);

writeln;

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(max);

writeln(min);

readln;

end.

t:=0;

for i:=1 to n do 

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

writeln(t);

readln;

end.

31 tháng 12 2022

#include <bits/stdc++.h>

using namespace std;

int n,A[100],i,k,t;

int main()

{

cin>>n>>k;

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

t=0;

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

if (A[i]%k==0) t+=A[i];

cout<<t;

}