Những câu hỏi liên quan
Vũ Hạ Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:10

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);

 

Bình luận (0)
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:10

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.

Bình luận (0)
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:11

Câu 3: 

b) a[2]=37

a[9]=25

Bình luận (0)
Đỗ Trần Kiên
Xem chi tiết
Nguyễn An Ninh
15 tháng 5 2023 lúc 19:36

'''python

a. DTB = []

siso = int(input("Nhập số lượng học sinh trong lớp: "))

b. for i in range(siso):

diem = float(input(f"Nhập điểm của học sinh thứ {i+1}: "))

DTB.append(diem)

c. tong=sum(DTB)

d. print(f"Tổng điểm của lớp là: {tong}")'''

Bình luận (0)
Bảo thy
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2022 lúc 15:34

Câu 1: Cú pháp khai báo mảng trong pascal:

Var <tên mảng>:array[1..n] of <kiểu dữ liệu>;

Cây 2: Khai báo mảng c gồm 20 phần tử kiểu số thực:

Var c:array[1..20] of real;

Bình luận (0)
Ngô Thị Thùy Trang
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:45

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

Bình luận (0)
Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:45

b) a[5]:=8;

Bình luận (0)
Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:45

c) readln(a[2]);

Bình luận (0)
Mai Hoa
Xem chi tiết
Nguyễn Lê Phước Thịnh
14 tháng 6 2020 lúc 15:59

1: var b:array[5..95]of real;

2: for i:=10 to 20 do

begin

write('B[',i,']='); readln(b[i]);

end;

Bình luận (0)
Nguyễn Kim Trí
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 1 2022 lúc 21:17

#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;

}

Bình luận (0)
Trâm Anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 2 2022 lúc 18:49

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]);

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

writeln;

writeln('Phan tu thu hai la: ',a[2]);

readln;

end.

Bình luận (0)
Trang
Xem chi tiết
Trang
9 tháng 5 2023 lúc 14:07

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

Bình luận (0)
hamhochoi
Xem chi tiết