Bài tập: Minh trao đổi với Hoa như sau: Hoa cho tớ biết một dãy gồm 10 số nguyên bất kì mà bạn nghĩ ra, sau đó tớ sẽ tính tổng các số nguyên là số chẵn rồi thông báo kết quả tổng đó ra màn hình. Em hã...

VP

Vy Phạm Nguyễn Phương

16 tháng 5 2022

Bài tập: Minh trao đổi với Hoa như sau: Hoa cho tớ biết một dãy gồm 10 số nguyên bất kì mà bạn nghĩ ra, sau đó tớ sẽ tính tổng các số nguyên là số chẵn rồi thông báo kết quả tổng đó ra màn hình. Em hãy giúp hai bạn viết chương trình Pascal hoàn thiện thực hiện: - Khai báo mảng 1 chiều gồm 10 phần tử chứa các số nguyên. - Nhập giá trị bất kì cho 10 phần tử đó. - Kiểm tra xem những phần tử nào thỏa mãn là...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

16 tháng 5 2022

uses crt;

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

i,n,t: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] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

Đúng(0)

HH

Hải Hà

6 tháng 4 2023

Bài 1: VCT đếm các phần tử là số nguyên âm chẵn của dãy n số nguyên từ bàn phím. Sau đó in kết quả ra màn hình Bài 2:VCT tính tổng các phần tử chia hết cho 5 của dãy n số nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình Bài 3: VCT tính tích các phần tử là số chẵn của dãy n nhập từ bàn phím và in kết quả r màn hình (Giúp mik vs ạ)

#Tin học lớp 8

3

ML

Minh Lệ

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.

Đúng(1)

ML

Minh Lệ

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.

Đúng(1)

N

ngomanhcuong

15 tháng 3 2022

Bài 1. Viết chương trình nhập vào 1 mảng a gồm n phần tử nguyên được nhập từ bàn phím.a) Tính tổng các số chẵn và lớn hơn 10? Thông báo kết quả và in mảng ra màn hình?b) Đếm các số lẻ hoặc nhỏ hơn 100? Thông báo kết quả và in mảng ra màn...

Đọc tiếp

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

15 tháng 3 2022

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t,dem;

int main()

{

cin>>n;

dem=0;

t=0;

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

{

cin>>x;

if (x%2==0 && x>10) t+=x;

if (x%2!=0 || x<100) dem++;

}

cout<<t<<" "<<dem;

return 0;

}

Đúng(0)

LT

Lê Thùy Ánh

6 tháng 5 2021 - olm

Bài 1 : Viết chương trình Pascal nhập vào 10 số thực bất kì , in ra màn hình tổng bình phương của các số âm Bài 2 : Viết chườn trình nhập vào số n số tự nhiên đầu tiên , tính tổng các số chẵn có trong dãy số in kết quả ra màn hình Bài 3 : Viết chưng trình nhập vào một mảng các số nguyên bất kì , in ra màn hình các số là số dương mà là số lẻ Giúp mk với mn ơi , mk đang cần gấp Cảm...

Đọc tiếp

#Tin học lớp 8

1

K

KhảTâm

14 tháng 5 2021

Bài 1:program sothuc;

uses crt;

var a:array[1..10] of real;s,i,j:real;

begin

s:=0;

for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;

for i:=1 to 10 do if a[i]<0 then

for j:=1 to 10 do

begin a[j]:=sqr(a[i]); s:=s+a[j]; end;

writeln('tong binh phuong cac so am la: ',s:2:2); readln;

end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)

Bài 2:

program soduong;

uses crt;

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

begin

clrscr;

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin

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

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

writeln('tong so duong trong day la',s:2:0);readln

end.

Bài 3: các số dương mà là số lẻ là sao thế bạn????

Đúng(0)

VN

Vbb nbbj Vbb

23 tháng 4 2023

Em hãy viết chương trình tính tổng các phần tử của dãy số A1 ,A2 ..., A n cho trước sau đó thông báo kết quả ra màn hình

#Tin học lớp 8

0

HH

Hải Hà

6 tháng 4 2023 - olm

Bài 1: VCT đếm các phần tử là số nguyên âm chẵn của dãy b số nguyên từ bàn phím. Sau in kết dãy số và kết quả r màn hình Bài 2: VCT tính tổng các phần tử chia hết cho 5 của dãy n sô nguyên nhập từ bàn phím. Sau đó in dãy số và kết quả r màn hình (Giúp mik vs...

Đọc tiếp

#Tin học lớp 8

0

NM

Nguyễn Mỹ

5 tháng 4 2021

Bài 1: VCT nhập vào 1 dãy số nguyên từ bàn phím và in các phần tử của dãy số đó ra màn hình Bài 2: VCT nhập vào 1 dãy số từ bàn phím tính tổng dãy số đó và in kết quả ra màn hình Bài 3: VCT nhập vào 1 dãy số từ bàn phím tính tổng các số chẵn của dãy số đó và in kết quả ra màn hình ( làm giúp em lẹ ạ, mai e phải nộp rồi...

Đọc tiếp

#Tin học lớp 8

4

NA

nguyễn an phát

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.

Đúng(0)

NL

Nguyễn Lê Phước Thịnh

5 tháng 4 2021

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.

Đúng(0)

TD

Trần Đức Huy

14 tháng 3 2023

Viết chương trình nhập vào một dãy n số nguyên, tính tổng các số vừa nhập, thông báo kết quả ra màn...

Đọc tiếp

#Tin học lớp 8

3

VQ

Võ Quốc Bảo

14 tháng 3 2023

#include <bits/stdc++.h>
using namespace std;
int main ()
{
int a[32];
int n,i,s;
cout<<"nhap so phan tu cua mang ";
cin>>n;
cout<<"nhap cac phan tu cua mang ";
for (i=1; i<=n; i++)
{
s=0;
cin>>a[i];

}
for(i=1; i<=a[i]; i++) s=s+i;

cout<<s;
return 0;
}

Đúng(0)

ML

Minh Lệ

14 tháng 3 2023

Program HOC24;

var i,n: integer;

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

t: longint;

begin

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Tong la: ',t);

readln

end.

Đúng(0)

TH

Thái Hồng Sương

7 tháng 5 2021

Chương trình pascal thực hiện các yêu cầu sau: nhập giá trị của các phần tử một dãy số gồm n phần tử, tính tích các phần tử của dãy số đó và không báo kết quả ra màn hình và tính trung bình cộng các phần tử của dãy số đó và thông báo kết quả ra màn hình

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

7 tháng 5 2021

uses crt;

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

i,n,t:integer;

s:real;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

s:=1;

for i:=1 to n do

s:=s*a[i];

writeln('Tich la: ',s:0:0);

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln('Trung binh la: ',t/n:4:2);

readln;

end.

Đúng(2)

NN

Ngáo Ngơ Alice

11 tháng 4 2021

Bài 1: Viết chương trình nhập vào 1 dãy số nguyên xuất dãy số đó ra màn hình tính tích các số chẵn và xuất ra màn hình.Bài 2: Viết chương trình nhập 1 dãy số nguyên, xuất dãy số đó ra màn hình tính tổng các số chẵn các số lẻ và xuất ra màn...

Đọc tiếp

#Tin học lớp 8

3

NA

nguyễn an phát

11 tháng 4 2021

program timtich;

uses crt;

var i,n:integer;

tich:longint;

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

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]:4);

tich:=1;

writeln;

for i:=1 to n do

if a[i] mod 2=0 then tich:=tich*a[i];

writeln('tich ca phan tu chan cua mang la:',tich);

readln;

end.

program timtong;

uses crt;

var i,n:integer;

tong:longint;

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

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]:4);

tong:=0;

writeln;

for i:=1 to n do

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

writeln('tong cac phan tu chan cua mang la:',tong);

tong:=0;

writeln;

for i:=1 to n do

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

writeln('tong cac phan tu le cua mang la:',tong);

readln;

end.

Đúng(1)

NL

Nguyễn Lê Phước Thịnh

11 tháng 4 2021

Bài 1:

uses crt;

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

i,n,s:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

s:=1;

for i:=1 to n do

if a[i] mod 2=0 then s:=s*a[i];

writeln(s);

readln;

end.

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP