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.

5 tháng 4 2021

Bài 1:

program in_phan_tu;

uses crt;

var n,i:longint;

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

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

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

end;

for i:=1 to n do

write(a[i]:3);

readln;

end.

Bài 2:

program tong_phan_tu;

uses crt;

var n,i,tong:longint;

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

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

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

end;

tong:=0;

for i:=1 to n do

tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Bài 3:

program tong_phan_tu_chan;

uses crt;

var n,i,tong:longint;

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

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

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

end;

tong:=0;

for i:=1 to n do

if a[i] mod 2=0 then tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Câu 1: 

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 

  write(a[i]:4);

readln;

end.

7 tháng 5 2023

program TinhTBCTimSoNT;

var
  ten, lop: string;
  n, i, tong, dem: integer;
  A: array [1..11] of integer;
  trung_binh: real;

function LaSoNguyenTo(x: integer): boolean;
var
  i: integer;
begin
  if x < 2 then
    LaSoNguyenTo := false
  else if x = 2 then
    LaSoNguyenTo := true
  else if x mod 2 = 0 then
    LaSoNguyenTo := false
  else
  begin
    i := 3;
    while (i <= trunc(sqrt(x))) and (x mod i <> 0) do
      i := i + 2;
    LaSoNguyenTo := x mod i <> 0;
  end;
end;

begin
  // Nhập tên và lớp của học sinh
  write('Nhập tên của học sinh: ');
  readln(ten);
  write('Nhập lớp: ');
  readln(lop);

  // Nhập dãy số nguyên và tính trung bình cộng
  repeat
    write('Nhập số phần tử của dãy số (n<12): ');
    readln(n);
  until n < 12;
  tong := 0;
  for i := 1 to n do
  begin
    write('Nhập phần tử thứ ', i, ': ');
    readln(A[i]);
    tong := tong + A[i];
  end;
  trung_binh := tong / n;

  // In tên, lớp, dãy số và trung bình cộng ra màn hình
  writeln('Học sinh: ', ten);
  writeln('Lớp: ', lop);
  write('Dãy số: ');
  for i := 1 to n do
    write(A[i], ' ');
  writeln;
 
  // In các số nguyên tố của dãy số ra màn hình
  writeln('Các số nguyên tố của dãy số:');
  for i := 1 to n do
    if LaSoNguyenTo(A[i]) then
      writeln(A[i]);
end.

6 tháng 4 2023

Bài 1:

Program HOC24;

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

i,n,d: integer;

begin

write('Nhap so phan tu: '); 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]<0) and (a[i] mod 2=0) then d:=d+1;

write('Co ',d,' so nguyen am chan trong day so');

readln

end.

6 tháng 4 2023

Bài 2:

Program HOC24;

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

i,n: integer;

t: longint;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

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

end;

t:=0;

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

write(Tong la: ',t);

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long a[100],i,n,t1,t2;

int main()

{

cin>>n;

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

t1=0;

t2=1;

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

{

t1+=a[i];

t2*=a[i];

}

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

return 0;

}

Bài 1: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

t:=0;

for i:=1 to n do 

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

writeln('Tong cac so chia het cho 5 la: ',t);

readln;

end.

Bài 2: 

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

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

d:=length(st);

for i:=1 to d do 

  if st[i]=#32 then delete(st,i,1);

writeln(st);

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