LÀM GIÚP MÌNH 2 BÀI NÀY VÔ (FREE PASCAL) RỒI GỬI ẢNH CHO MÌNH NHÉ ! GẤP TRONG NGÀY 1 Viết chương trình pascal nhập vào 1 dãy số nguyên X . In ra màn hình xem có bao nhiêu số lẻ trong dãy số nguyên X....

DD

duong duc truong

5 tháng 6 2020

LÀM GIÚP MÌNH 2 BÀI NÀY VÔ (FREE PASCAL) RỒI GỬI ẢNH CHO MÌNH NHÉ ! GẤP TRONG NGÀY 1 Viết chương trình pascal nhập vào 1 dãy số nguyên X . In ra màn hình xem có bao nhiêu số lẻ trong dãy số nguyên X. Input N=10 2 5 7 9 8 10 4 65 89 56 Output 5 2 Viết chương trình pascal nhập vào 1 dãy số nguyên và tính tổng các số lẻ trong dãy số đó Input N=10 2 5 7 9 8 10 4 65 89...

Đọc tiếp

#Tin học lớp 8

2

DD

duong duc truong

6 tháng 6 2020

sai 2 lỗi cô ơi

Đúng(0)

DD

duong duc truong

6 tháng 6 2020

3 lỗi

Đúng(0)

SV

Sơn Võ

24 tháng 2 2022

viết chương trình pascal, nhập vào dãy số nguyên ko có 100 phần tử. In dãy số đó ra màn hình cho biết trong dãy có bao nhiêu phần tử có giá trị chẵn và bao nhiêu phần tử có giá trị lẻ.

#Tin học lớp 11

2

KV

Kiều Vũ Linh

24 tháng 2 2022

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

i,d1,d2:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

End;

For i:=1 to 100 do

If a[i] mod 2 = 0 then d1:=d1+1

Else d2:=d2+1;

Writeln('So phan tu chan la ',d1);

Write('So phan tu le la ',d2);

Readln;

End.

Đúng(0)

NL

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

24 tháng 2 2022

uses crt;

var n,i,a[100],dem1,dem2:integer;

begin

clrscr;

readln(n);

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

dem1:=0;

dem2:=0;

for i:=1 to n do

begin

if a[i] mod 2=0 then inc(dem1)

else inc(dem2);

end;

writeln(dem1,' ',dem2);

readln;

end.

Đúng(0)

NT

Nguyễn Thị Ngọc Minh

12 tháng 3 2021

1.Viết 1 chương trình pascal nhập vào từ bàn phím 4 số nguyên a, b, c, d rồi in ra màn hình dãy thứ nhất là tổng của 4 số trên, dãy thứ 2 là giá trị lớn nhất của chúng. Giúp mình với...mình cần gấp

#Tin học lớp 11

2

ML

Minh Lệ

13 tháng 3 2021

Program HOC24;

var a,b,c,d,max: integer;

t: longint;

begin

write('Nhap a; b; c; d: '); readln(a,b,c,d);

t:=a+b+c+d;

writeln('Tong 4 so tren la: ',t);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

if max<d then max:=d;

write('So lon nhat cua chung la: ',max);

readln

end.

Đúng(3)

NL

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

13 tháng 3 2021

*Cách khác:

uses crt;

var a,b,c,d,max:integer;

begin

clrscr;

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

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

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

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

writeln('Tong cua 4 so la: ',a+b+c+d);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

if max<d then max:=d;

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

readln;

end.

Đúng(1)

QM

Quỳnh's Mun's

29 tháng 4 2021

a, Viết chương trình pascal nhập vào một dãy số nguyên n từ bàn phím b, in dãy vừa nhập ra màn hình. c, đếm xem bao nhiêu số dương. d, in kết quả số dương ra màn hình.

#Tin học lớp 8

1

ML

Minh Lệ

29 tháng 4 2021

Program HOC24;

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

i,n,d: integer;

begin

write('Nhap N: ');

for i:=1 to n do

begin

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

end;

write('Day vua nhap la: ');

for i:=1 to n do write(a[i],' '); writeln;

d:=0;

for i:=1 to n do if a[i]>0 then d:=d+1;

write('Co ',d,' so duong');

readln

end.

Đú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)

NN

Ngọc Nguyễn

5 tháng 5 2022

Viết chương trình:

a. Nhập vào mảng A là dãy số nguyên

b. In ra hình dãy số A đó

c. In ra màn hình các số nguyên dương trong dãy số A

d. Tính tổng các số lẽ trong dãy lập trình pascal ta có câu lệnh

#Tin học lớp 8

0

NQ

Nguyễn Quang Đạt

22 tháng 7 2021

viết chương trình nhập 1 dãy số .sau đó đếm xem có bau nhiêu số chẵn.

help mình vs free pascal mình cần gấp!!!!

#Tin học lớp 8

1

NH

Nguyên Hưng Trần

26 tháng 7 2021

Program Tin_hoc;

uses crt;

var n,i,dem:integer;

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

Begin

clrscr;

readln(n);

dem:=0;

for i:= 1 to n do

Begin

readln(a[i]);

if a[i] mod 2 = 0 then inc(dem);

end;

writeln('Day so co ',dem,' so chan');

readln;

end.

Đúng(0)

NQ

Nguyễn Quang Đạt

22 tháng 7 2021

viết chương trình nhập 1 dãy số .sau đó đếm xem có bau nhiêu số chẵn.

help mình vs free pascal mình cần gấp!!!!

#Tin học lớp 9

1

NH

Nguyên Hưng Trần

22 tháng 7 2021

uses crt;

Var i,n,dem:integer;

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

Begin

clrscr;

Write('Nhap do dai cua day: ');readln(n);

dem:=0;

for i:= 1 to n do

Begin

write('So thu ',i,' = ');

readln(a[i]);

if a[i] mod 2 = 0 then inc(dem);

end;

Writeln('Day so co ',dem,' so chan');

readln;

End.

Đúng(0)

NQ

Nguyễn Quang Đạt

22 tháng 7 2021

viết chương trình nhập 1 dãy số .sau đó đếm xem có bau nhiêu số chẵn.

help mình vs free pascal mình cần gấp!!!!

#Tin học lớp 12

1

NH

Nguyên Hưng Trần

22 tháng 7 2021

uses crt;

Var i,n,dem:integer;

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

Begin

clrscr;

Write('Nhap do dai cua day: ');readln(n);

dem:=0;

for i:= 1 to n do

Begin

write('So thu ',i,' = ');

readln(a[i]);

if a[i] mod 2 = 0 then inc(dem);

end;

Writeln('Day so co ',dem,' so chan');

readln;

End.

Đúng(1)

NQ

Nguyễn Quang Đạt

22 tháng 7 2021

viết chương trình nhập 1 dãy số .sau đó đếm xem có bau nhiêu số chẵn.

help mình vs free pascal mình cần gấp!!!!

#Tin học lớp 11

2

NH

Nguyên Hưng Trần

22 tháng 7 2021

uses crt;

Var i,n,dem:integer;

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

Begin

clrscr;

Write('Nhap do dai cua day: ');readln(n);

dem:=0;

for i:= 1 to n do

Begin

write('So thu ',i,' = ');

readln(a[i]);

if a[i] mod 2 = 0 then inc(dem);

end;

Writeln('Day so co ',dem,' so chan');

readln;

End.

Đúng(2)

PQ

phạm quang huy

6 tháng 8 2021

uses crt;

var i,n,dem:longint;a:array[1..1000]of longint;

begin

clrscr;

write('nhap so phan tu cua day:');readln(n);

for i:=1 to n do

begin

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

end;

for i:=1 to n do if(a[i] mod 2=0)then inc(dem);

writeln('co tat ca:',dem,'so chan');

readln;

end.

Đúng(0)

NQ

Nguyễn Quang Đạt

22 tháng 7 2021

viết chương trình nhập 1 dãy số .sau đó đếm xem có bau nhiêu số chẵn.

help mình vs free pascal mình cần gấp!!!!

#Toán lớp 8

2

TA

Trần Ái Linh

22 tháng 7 2021

program im_14424;
uses crt;
var A: array [1..99999] of integer;
i,n,dem : integer;
begin
clrscr;
dem:=0;
write('Nhap vao so phan tu: ',n);
readln(n);
for i:=1 to n do
begin
write('Nhap vao phan tu thu ',i,':');
readln(A[i]);
if (A[i] mod 2 = 0) then dem:=dem+1;
end;
write('So cac so chan la: ',dem);
readln(dem);
end.

Đúng(2)

NL

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

22 tháng 7 2021

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

dem:=0;

for i:=1 to n do

if a[i] mod 2=0 then inc(dem);

writeln(dem);

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