Câu 1: Viết Chương Trình Nhập Vào Mảng A Gồm N Phần Tử ( N Phần Tử ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

trandai
Chưa có nhóm

Trả lời
4
Điểm
5
Cảm ơn
1

Tin Học
Lớp 11
10 điểm
trandai - 20:09:36 04/12/2019

câu 1: viết chương trình nhập vào mảng A gồm n phần tử ( n phần tử nhập từ bàn phím ) a: in ra các số lẻ b:in ra tổng số phần tử chẵn câu 2: viết chương trình nhập vào mảng A gồm n phần tử với giá trị k a: đếm các số trong mảng A bằng k; b: in ra các số là bội của k; c: in ra các số âm

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

vandat13012006
PHOENIX RISING

Trả lời
6067
Điểm
10370
Cảm ơn
5311

vandat13012006

13/08/2020

Đây là câu trả lời đã được xác thực

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

Câu 1 :

program cau1;uses crt;var a : array[1..100] of integer;n,i,t : integer;begin clrscr;t:=0;write('Nhap so n :'); readln(n);for i:=1 to n do beginwrite('Nhap a[',i,']='); readln(a[i]); end;writeln('Cac phan tu le cua mang :');for i:=1 to n do if a[i] mod 2 = 1 then write(a[i]:3);writeln;for i:=1 to n do if a[i] mod 2 = 0 then t:=t+a[i];writeln('Tong cac phan tu chan cua mang la :', t);readlnend.

Câu 2 :

program cau2;uses crt;var a : array[1..100] of integer;n,i,k,dem : integer;begin clrscr;dem:=0;write('Nhap so n :'); readln(n);for i:=1 to n do beginwrite('Nhap a[',i,']='); readln(a[i]); end;write('Nhap so k :') ; readln(k);for i:=1 to n do if a[i] = k then dem:=dem+1;writeln('Co ',dem,' gia tri bang ',k,' trong mang');writeln('Cac phan tu la boi cua ',k,' la :');for i:=1 to n do if a[i] mod k = 0 then write(a[i]:4);writeln;writeln('Cac so am trong mang la :');for i:=1 to n do if a[i] < 0 then write(a[i]:3);readlnend.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar2 voteGửiHủy

Cảm ơn 2

Đăng nhập để hỏi chi tiết avatar

Dttngan2003
Chưa có nhóm

Trả lời
3
Điểm
976
Cảm ơn
1

Dttngan2003

04/12/2019

Program bt;

Uses crt;

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

N,i,tong:integer;

Begin

Clrscr;

Writeln('nhap n:=');

Readln(n);

For i:=1 to n do

Begin

Writeln('nhap a[',i,']:=');

Readln(a[i]);

End;

Tong:=0;

For i:=1 to n do

If (a[i] mod 2 = 0) then write(a[i])

Else tong:=tong+a[i];

Writeln('tong chan :=',tong);

Readln

End.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy