Viết chương trình nhập k và n số nguyên từ bàn phím. a. Đếm trong dãy có bao nhiêu số bằng k. b. Tìm số nguyên tố lớn nhất của dãy.
2 câu trả lời
uses crt;
var a:array[1..100]of integer;
i,n,dem,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap k='); readln(k);
dem:=0;
for i:=1 to n do
if a[i]=k then inc(dem);
writeln('Trong day co ',dem,' phan tu co gia tri bang ',k);
readln;
uses crt;
var a:array[1..234]of longint;
n,max,i,k,d:longint;
begin
clrscr;
write('nhap n');
readln(n);
write('nhap k');
readln(k);
i:=0;
d:=0;
repeat
begin
i:=i+1;
write('a[',i,']=');
readln(a[i]);
if a[i]=k then d:=d+1;
end;
until
i=n;
max:=a[1];
for i:=2 to n do
if max<a[i] then max:=a[i];
writeln('co',d,'= ',k);
writeln('gia tri lon nhat',max);
readln
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết
- Đề thi học kì 2 môn địa 9 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 9 có lời giải chi tiết
