Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Ngoc Anh Nguyen
Xem chi tiết
Kiều Vũ Linh
14 tháng 3 2023 lúc 9:24

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

i,s:integer;

Begin

For i:=1 to 100 do

Begin

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

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.

-X_minh hiếu-
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 1 2022 lúc 15:09

#include <bits/stdc++.h>

using namespace std;

double a[1000];

int i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=n; i>=1; i--)

if (a[i]>0)

{

cout<<i<<" ";

return 0;

}

cout<<"Khong co so am trong day";

return 0;

}

Đỗ Tuệ Lâm
15 tháng 1 2022 lúc 15:13

 

TRƯƠNG THỊ KIM NGUYÊN
Xem chi tiết
Nguyễn Lê Phước Thịnh
16 tháng 4 2022 lúc 13:42

uses crt;

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

i,n:integer;

begin

clrscr;

readln(n);

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

writeln(a[n]);

readln;

end.

Lan Tuyết
Xem chi tiết
Linh Chi
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 3 2021 lúc 19:40

uses crt;

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

n,i,k,dem,dem1: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;

dem1:=0;

for i:=1 to n do 

  begin

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

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

end;

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

writeln('So phan tu chia het cho ',k,' la: ',dem1);

readln;

end.

Thu Hiền
Xem chi tiết
Bao112233
17 tháng 12 2022 lúc 21:34

var n,i,dem,t:integer;
a:array[1..50] of integer;
begin
    dem:=0;
    t:=0;
    read(n);
    for i:=1 to n do 
    read(a[i]);
    for i:=n downto 1 do
    write(a[i]);
    writeln;
    for i:=1 to n do 
    if (a[i] mod 2 = 0) then dem:=dem+1;
    if a[i]<a[i-1] then t:=t+1;
    writeln(dem);
    if t=0 then write('Co lap thanh cap so +')
    else write('Ko the lap thanh cap so +');
    readln;
end.

Trang Hà
Xem chi tiết
Lân Trần Quốc
30 tháng 3 2021 lúc 22:46

Mình nghĩ mình sẽ không đưa code, mà chỉ đưa ý tưởng thôi nhé.

1. Khai báo n, mảng a và s = 0. Với mỗi phần tử a, ta cộng nó vào s. Cuối ta in ra s/n.

2. Cũng khai báo n, mảng a và 2 biến s1 (lưu tổng lẻ) và s2 (lưu tổng chẵn). Với mỗi a, ta kiểm tra số đó có phải là số chẵn hay lẻ (if n mod 2 = 0) và cộng vào s1 (nếu là chẵn) hoặc s2 (nếu là lẻ) và in ra.

3. Khai báo n, mảng a và minn để chứa số nhỏ nhất. Với mỗi a, tìm minn bằng cách so sánh a với minn và gán lại minn nếu nó lớn hơn a. Sau đó cho chạy thêm một vòng nữa để kiểm tra xem số nào là số minn, và in chỉ số của nó ra.

Nếu có gì thắc mắc, hỏi kỹ mình, mình sẽ giúp đỡ nhé.

Chúc bạn học tốt ok.

 

Nguyễn Lê Phước Thịnh
30 tháng 3 2021 lúc 22:57

Câu 1: 

uses crt;

var n,i,t:integer;

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

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t/n:4:2);

readln;

end.

Nguyen Hung
29 tháng 4 2021 lúc 8:52

Câu 1:

Program Tin_hoc;

Uses crt;

Var i,n,tong:integer;

      tb:real;

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

Begin

clrscr;

Write('Nhap n: ');readln(n);

tong:=0;

Writeln('Nhap ',n,' phan tu cua day:');

for i:= 1 to n do

  begin

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

  readln(a[i]);

  tong:=tong+a[i];

  end;

tb:=tong/n;

Writeln('Gia tri trung binh cua day la: ',tb:0:4);

readln;

end.

nông thị ngân
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 3 2021 lúc 19:41

uses crt;

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

n,i,k,t,t1: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);

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

t1:=0;

for i:=1 to n do 

  if a[i] mod k=0 then t1:=t1+a[i];

writeln('Tong cac phan tu le la: ',t);

writeln('Tong cac phan tu la boi cua ',k,' la: ',t1);

readln;

end.

Minh Thư
Xem chi tiết
Minh Lệ
18 tháng 3 2023 lúc 12:31

Program HOC24;

var d,i,n: integer;

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

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

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

end;

d:=0;

for i:=1 to n do d:=d+1;

write('So luong cac phan tu trong mang la: ',d);

readln

end.

* Thực chất số lượng phần tử trong mảng là N ban đầu nhập rồi, bạn kiểm tra lại xem đề thiếu không nhé