Những câu hỏi liên quan
Lê Thế
Xem chi tiết
Đoàn Xuân Sơn
7 tháng 9 2021 lúc 21:54

program so_le;
uses crt;
var
n,i,d:integer;
a:Array[1..32000] of integer;
begin
clrscr;

write('nhap n: ');

readln(n);

for i:= 1 to n do

begin

write('nhap a[',i,']: ');

readln(a[i]);

end;

d:=0;

for i:= 1 to n do

if a[i] mod 2 <> 0 then d:=d+1;
write('so luong so nguyen la so le la: ',d);

readln;

end.

Bình luận (0)
Lê Thế
Xem chi tiết
Minh Lệ
10 tháng 9 2021 lúc 20:55

Program HOC24;

var n,i: integer;

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

t: longint;

begin

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

write('Nhap so thu ',i,': '); readln(a[i]);

t:=0;

for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];

write('Tong cac so chan la: ',t);

readln

end.

Bình luận (0)
Lê Thế
11 tháng 9 2021 lúc 19:45

Viết chương trình nhập số nguyên n và n số nguyên từ bàn phím?In ra màn hình tổng các số chia hết cho 3 và 5

 
Bình luận (0)
Phạm Thị Đông Nhi_HDI
Xem chi tiết
shitbo
21 tháng 6 2020 lúc 16:54

program hello;

uses crt;

Var n,i,j,k: integer;

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

begin;

a[1]:=k;

Readln(n);

For i:=1 to n do

Begin;

Writeln('nhap a[',i,'] '); Readln(a[i]);

End;

For i:=1 to n-1 do

For j:=i+1 to n do

If a[i]<a[j] then k:=a[j];

Writeln('gia tri lon nhat la', k);

end.

Bình luận (0)
 Khách vãng lai đã xóa
Ánh Thi
Xem chi tiết
Ngô Bá Hùng
26 tháng 4 2023 lúc 23:35

program TongSoChan;

var
  n, i, x, tong: integer;

begin
  write('Nhap so nguyen n: ');
  readln(n);
  
  tong := 0;
  
  for i := 1 to n do
  begin
    read(x);
    if x mod 2 = 0 then
      tong := tong + x;
  end;
  
  writeln('Tong cac so chan la: ', tong);
  readln; 
end.

Bình luận (0)
lam nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 22:14

#include <bits/stdc++.h>

using namespace std;

long long n;

int main()

{

cin>>n;

if (n<0) cout<<"la so am";

else cout<<"la so duong";

return 0;

}

Bình luận (0)
Trần Hà Thư
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 22:07

uses crt;

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

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

readln;

end.

Bình luận (0)
Lê Thị Thu Phương
7 tháng 6 2021 lúc 21:02

uses crt;
var a:array[1..1000000] of longint;
      n,i:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      write('Cac so chan: ');
      for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
      readln;
end.

Bình luận (0)
HIển Long Đặng Hồ
Xem chi tiết
Ngọc hà
Xem chi tiết
Nhung
23 tháng 5 2022 lúc 22:38

program trungbinh;

uses crt;

var n,i: integer;

      s:real;

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

begin

clrscr;

write('Nhap do dai day: '); readln(n);

writeln('Nhap gia tri cua day: ');

S:=0;

for i:=1 to n do

begin

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

readln(A[i]);

S:=S+A[i];

end;

S:=S/n;

write('Trung binh cua cac so cua day do la: ',S);

readln;

end.

Bình luận (0)
KenShi
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 12 2021 lúc 0:39

Bài 2: 

#include <bits/stdc++.h>

using namespace std;

long long x,y;

int main()

{

cin >>x>>y;

cout<<x<<" "<<y;

swap(x,y);

cout<<x<<" "<<y;

return 0;

}

Bình luận (0)