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.

12 tháng 4 2018

Lợi ích chính của việc sử dụng biến mảng là rút gọn việc viết chương trình, có thể sử dụng câu lệnh lặp để thay nhiều câu lệnh, giúp tiết kiệm rất nhiều thời gian và công sức viết chương trình.

Ngoài ra chúng ta còn có thể lưu trữ và xử lí nhiều dữ liệu có nội dung liên quan đến nhau một cách hiệu quả.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

//chuongtrinhcon

bool ktnt(long long x)

{

if (x<=1) return(false);

for (int i=2; i*i<=x; i++)

if (x%i==0) return(false);

return(true);

}

//chuongtrinhchinh

int main()

{

cin>>n;

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

for (i=1; i<=n; i++) if (ktnt(a[i])==true) cout<<a[i]<<" ";

return 0;

}

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

for i:=1 to n do 

begin

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

end;

for i:=1 to n do 

  write(a[i]:4);

30 tháng 12 2020

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

n,i: integer;

tb: real;

begin

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

for i:=1 to n do 

begin

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

end;

tb:=0;

for i:=1 to n do

tb:=tb+a[i];

tb:=tb/n;

for i:=1 to n do 

if a[i] > tb then writeln(a[i]);

readln

end.

9 tháng 5 2023

Phần tử trong mảng nha mn ghi nhầm

20 tháng 4 2020

Câu 2:

Program hotrotinhoc;

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

i,n: integer;

begin

write('Nhap so phan tu : '); readln(n);

for i:=1 to n do

begin

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

end;

write('Mang vua nhap la : ');

for i:=1 to n do write(a[i],' ');

readln

end.

20 tháng 4 2020

Câu 1:

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

var b: array[1..50] of real;

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

var d: array[1..100] of real;

var e: array[1..150] of integer;

var f: array[1..150] of integer;

Câu 1: 

a) var a:array[1..50]of real;

b) a[5]:=8;

c) for i:=1 to 50 do  

begin

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

end;

for i:=1 to 50 do 

 write(a[i]:4);

 

Câu 2: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln(s);

readln;

end.

27 tháng 6 2019

- Nhập dữ liệu cho phần tử thứ 15 của mảng: write('mang[15]:');readln(mang[15]);

- Gán giá trị 8,5 cho phần tử thứ 3 của mảng: mang[3]:=8.5;

- Xuất giá trị của phần tử thứ 18 của mảng ra màn hình:write('mang[18]:',mang[18]);

25 tháng 4 2022

program b1;
uses crt;
var i,n: integer; a:array[1..20] of integer; 
begin
clrscr;
for i:=1 to 20 do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Cac phan tu la:');
for i:=1 to 20 do
write(a[i], ' ');
readln;
end.
Tham khảo!