K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

25 tháng 4 2017

1/

program chia_het;

uses crt;

var n, i, s: integer;

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

begin

clrscr;

write('Cac so can nhap la: n = '); readln(n); s:=0

for i:=1 to n do begin

write('So thu ',i,' la:'); readln(a[i]);

if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then s:=s+1; end;

writeln('Cac so chia het cho 5 va 2 la: ',s);

readln

end.

25 tháng 4 2017

6.a sai vì sau do có dấu ;

==> sửa lại: for i := 1 to 10 do write(i:5);

6.b sai vì chỉ số đầu lớn hơn chỉ số cuối (100>10) và chỗ gán cho x thế dấu :

==> sửa lại: for i:=10 tờ 100 đô x:=x-i;

6.c sai vì to viết liền với số 200

==> sữa lại: for i:= 100 tờ 200 độ i:=i+5;

6.d đúng

6.d2 thừa i:=0 và còn ko cách chỗ to và 105

sử lại: var n, i:real;

begin n:=0; for i:=5 to 105 do n:=n+1; end.

Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

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

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

end;

readln;

end.

Câu 2: 

uses crt;

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

i,n,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

25 tháng 5 2021

program im_14424;

uses crt;

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

S,i,n: integer;

begin

clrscr;

write('Nhap vao n: ');

readln(n);

S:=0;

for i:=1 to n do

begin

write('Nhap A[',i,']: ');

readln(A[i]);

if (A[i] mod 2 = 0 then S:=S+i;

end;

write(S);

readln

end.

25 tháng 5 2021

Chú ý dùng 14 có mở ngoặc nên có đóng ngoặc câu lệnh bạn nhé ^^

if (A[i] mod 2 = 0) then S:=S+i;

uses crt;

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

n,i,max,min,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

t:=0;

for i:=1 to n do 

  t:=t+a[i];

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

writeln('Gia tri nho nhat la: ',min);

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

readln;

end.

24 tháng 5 2023

Để giải quyết bài toán này, chúng ta cần nhập vào một dãy số và in ra dãy số đó theo nguyên tắc 1 dòng gồm 10 phần tử, dòng cuối có thể có ít hơn 10 phần tử. Sau đây là mã nguồn Python để thực hiện việc này:

```python
n = int(input("Nhập số phần tử của dãy: "))
a = []

for i in range(n):
a.append(int(input("Nhập phần tử thứ {}: ".format(i+1))))

count = 0

for i in range(n):
print(a[i], end=" ")
count += 1
if count == 10:
print()
count = 0

if count != 0:
print()
```

Giải thích:

Dòng 1: Nhập số phần tử của dãy.Dòng 2: Khởi tạo một danh sách rỗng để lưu trữ các phần tử của dãy.Dòng 4-5: Sử dụng vòng lặp for để nhập các phần tử của dãy từ bàn phím và thêm chúng vào danh sách a.Dòng 7: Khởi tạo biến count với giá trị ban đầu là 0, biến này sẽ được sử dụng để đếm số phần tử đã in ra trên mỗi dòng.Dòng 9-13: Sử dụng vòng lặp for để duyệt qua các phần tử của dãy a, in ra từng phần tử và tăng biến count lên 1. Nếu count đạt giá trị 10, in ra ký tự xuống dòng và reset lại biến count về 0.Dòng 15-16: Kiểm tra xem dòng cuối cùng có đủ 10 phần tử hay không, nếu không thì in ra ký tự xuống dòng để kết thúc dòng cuối cùng.

Ví dụ:

```
Nhập số phần tử của dãy: 15
Nhập phần tử thứ 1: 1
Nhập phần tử thứ 2: 2
Nhập phần tử thứ 3: 3
Nhập phần tử thứ 4: 4
Nhập phần tử thứ 5: 5
Nhập phần tử thứ 6: 6
Nhập phần tử thứ 7: 7
Nhập phần tử thứ 8: 8
Nhập phần tử thứ 9: 9
Nhập phần tử thứ 10: 10
Nhập phần tử thứ 11: 11
Nhập phần tử thứ 12: 12
```

#include <bits/stdc++.h>

using namespace std;

long long n,ln,x,i;

int main()

{

cin>>n;

ln=LLONG_MIN;

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

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

return 0;

}

24 tháng 5 2023

Đây là chương trình Python để nhập vào một dãy số và đếm số phần tử chia hết cho 2 trong dãy số:

```python
n = int(input("Nhập số phần tử của dãy: "))
a = []
count = 0

for i in range(n):
a.append(int(input("Nhập phần tử thứ {}: ".format(i+1))))
if a[i] % 2 == 0:
count += 1

print("Số phần tử chia hết cho 2 trong dãy là:", count)
```

Giải thích:

Đầu tiên, chúng ta nhập số phần tử của dãy số `n`.Tiếp theo, chúng ta sử dụng vòng lặp `for` để nhập từng phần tử của dãy số và kiểm tra xem phần tử đó có chia hết cho 2 không. Nếu có, ta tăng biến `count` lên 1.Cuối cùng, chúng ta in ra số phần tử chia hết cho 2 trong dãy số.