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.

4 tháng 4 2021

#include<bits/stdc++.h>
using namespace std;
int a[1000000],n,b[1000000];
int main(){
    cin >>n;
    for (int i=1;i<=n;i++) {cin >> a[i];
    if (a[i]%2==1) b[a[i]]=i;
    }    
    for (int i=1;i<=n;i++){
        if (b[a[i]]!=0) {cout << b[a[i]] << " "<<a[i]<<'\n';b[a[i]]=0;}
    }
    
}

Nhập trực tiếp , in dạng :
Chỉ số _ số 

......

4 tháng 4 2021

Mình đang học pascal ạ

14 tháng 3 2021

undefinedundefinedundefinedundefined

24 tháng 3 2021

ghi hết đề ra đi bạn ơi!

uses crt;

var a,b,c,tb:array[1..100]of real;

i,n:integer;

begin

clrscr;

n:=5;

for i:=1 to n do 

  begin

   readln(a[i],b[i],c[i]);

end;

for i:=1 to n do 

  tb[i]:=(a[i]+b[i]+c[i])/3;

for i:=1 to n do 

  writeln('Diem trung binh cua ban thu ',i,' la: ',tb[i]:4:2);

readln;

end.

13 tháng 3 2021

Program HOC24;

var i,n: integer;

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

d: integer;

begin

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

d:=0;

for i:=1 to n do

begin

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

if a[i] mod 3=0 then d:=d+1;

end;

write('Co ',d,' phan tu la boi cua 3');

readln

end.

uses crt;

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

dem:=0;

for i:=1 to n do

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

writeln(dem);

readln;

end.

Bài 1:

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

dem:=0;

for i:=1 to n do

if a[i] mod 3<>0 then inc(dem);

writeln('So phan tu khong chia het cho 3 trong day la: ',dem);

readln;

end.

Bài 2:

uses crt;

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

i,n,t: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

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

writeln('Tong cac phan tu khong am trong day la: ',t);

readln;

end.

14 tháng 3 2021

15 tháng 3 2021

Mình nhớ có clsrcr với write nữa mà đúng không bạn 

20 tháng 4 2021

Program HOC24;

var s: string;

i,d: byte;

begin

write('Nhap xau :'); readln(s);

d:=0;

for i:=1 to length(s) do if s[i]=' ' then d:=d+1;

write('Xau ',s,' co ',d,' ki tu cach');

readln

end.

uses crt;

var s:string;

i,d,dem:integer;

begin

clrscr;

write('Nhap xau:); readln(s);

d:=length(s);

dem:=0;

for i:=1 to d do 

  if s[i]=#32 then inc(dem);

writeln(dem);

readln;

end.

21 tháng 4 2021

-  Tham số hình thức: Là tham số được đưa vào khi định nghĩa chương trình con.

- Tham số thực sự: Là tham số được viết trong lời gọi chương trình con.

- Biến toàn cục : là biến được khai báo trong chương trình chính. 

- Biến cục bộ: Là các biến được khai báo trong chương trình con.

- Tham số biến: là tham số hình thức được thay bằng tham số thực sự tương ứng là tên các biến và được khai báo sau từ khóa var.

 -  Tham số giá trị: là tham số hình thức được thay bằng tham số thực sự tương ứng là các giá trị cụ thể và không được khai báo sau từ khóa var.

-  Tham số hình thức: Là tham số được đưa vào khi định nghĩa chương trình con.

- Tham số thực sự: Là tham số được viết trong lời gọi chương trình con.

- Biến toàn cục : là biến được khai báo trong chương trình chính. 

- Biến cục bộ: Là các biến được khai báo trong chương trình con.

- Tham số biến: là tham số hình thức được thay bằng tham số thực sự tương ứng là tên các biến và được khai báo sau từ khóa var.

 -  Tham số giá trị: là tham số hình thức được thay bằng tham số thực sự tương ứng là các giá trị cụ thể và không được khai báo sau từ khóa var.