Cho 1 dãy số gồm n số nguyên dương(N<=50). Thực hiện các yêu cầu sau: a. Nhập dãy số, với số lượng nhập vào từ bàn phím b. Hiển thị dãy số theo hàng ngang c. Tính tổng các phần tử của dãy d. Tìm phần tử lớn nhất của dãy số e. Đếm xem có bao nhiêu số chẵn trong dãy số Nhanh lên mọ

bacduong010

2 năm trước

Cho 1 dãy số gồm n số nguyên dương(N<=50). Thực hiện các yêu cầu sau: a. Nhập dãy số, với số lượng nhập vào từ bàn phím b. Hiển thị dãy số theo hàng ngang c. Tính tổng các phần tử của dãy d. Tìm phần tử lớn nhất của dãy số e. Đếm xem có bao nhiêu số chẵn trong dãy số Nhanh lên mọi người đang thi 60 điểm

Loga Sinh Học lớp 12

0 lượt thích 22 xem

1 trả lời

Thích Trả lời

384832335721817

program ct;

uses crt;

var A:array[1..50] of integer;

i,n,dem,M:integer;

S:integer;

begin clrscr;

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

for i:=1 to n do

begin

writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

end;

writeln;

write('Hien thi day so theo hang ngang: );

for i:=1 to n do

write(A[i]:3);

S:=0;

for i:=1 to n do

S:=S+A[i];

writeln('Tong cac phan tu cua day la: ',S);

M:=A[1];

for i:=1 to n do

if A[i]>M then M:=A[i]

writeln('Phan tu lon nhat la: ',M);

dem:=0;

for i:= 1 to n do

if A[i] mod 2=0 then dem:=dem+1;

writeln('So phan tu chan trong day la: ',dem);

readln;

end.

Học tốt!

Vote (0) Phản hồi (0) 2 năm trước

tientien

program ct;

uses crt;

var s,i,n,d,Max:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

writeln;

write('day so theo hang');

for i:=1 to n do write(A[i]:4);

s:=0;

for i:=1 to n do s:=s+A[i];

writeln('tong cac phan tu trong day la',s);

Max:=A[1];

for i:=2 to n do

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

writeln('phan tu lon nhat trong day la',Max);

d:=0;

for i:=1 to n do

if A[i] mod 2=0 then d:=d+1;

writeln('so chan trong day la:',d);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Hoà tan 11,8 (g) hỗn hợp Cu và Al vào dd HCl dư . Sau khi phản ứng kết thúc đc 6,72 lít khí H2 (đktc) . Tính khối lượng kim loại trong hỗn hợp ban đầu Giúp mik vs💚💚

Đốt cháy hoàn toàn 26,2 g hỗn hợp 2 anđehit no, đơn chức ,mạch hở kế tiếp nhau trong dãy đồng đẳng thu được 23,4 g H2O .xác định công thức phân tử của 2 anđehit và tính khối lượng của mỗi andehit trong hỗn hợp

xác định kiểu câu phân loại theo mục đích nói của mỗi câu trong đoạn sau: (1) thế đê ko sao cự lại đc vs thế nước ! (2) lo thay ! (3) nguy thay ! (4) khúc đe này hỏng mất \

Cho tam giác ABC vuông tại A có đường cao AH, AB = 9cm, AC = 12cm . 1 chứng minh tam giác HCA đồng dạng tam giác ACB . 2 tính BC, AH, CN. 3Kẻ phân giác BD(D thuộc AC). Tính DA và DC 4. Kẻ DE vuông góc BC(EC thuộc BC) Chứng minh: DA=DB. Tính diện tích tứ giác ABED

Lúc 7:10 một xe máy đi từ A với vận tốc 40 km h Đến 8:45 xe máy đến B Tính độ dài quãng đường AB

lap dan y ta truong ko spam nha

Nêu suy nghĩ của bản thân về vấn đề môi trường ở địa phương (văn nghị luận)

Hãy kể 5 hồ , thác , suối có ở Quảng Nam < Mik đang cần gấp > Cảm ơn nhiều

HELP help help help help help help help help

HELPPPPPPPPPP......................

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến