Những câu hỏi liên quan
VL
Xem chi tiết
NT
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)
NT
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)
NT
7 tháng 5 2021 lúc 21:11

Câu 3: 

b) a[2]=37

a[9]=25

Bình luận (0)
H24
Xem chi tiết
NT
11 tháng 12 2020 lúc 21:08

a) var a:real;

b:string;

a:=20.5;

readln(b);

b) var x:string;

y:integer;

x:='Ha Noi'

readln(y);

Bình luận (0)
H24
Xem chi tiết
NT
2 tháng 11 2021 lúc 23:29

Câu 3: 

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Bình luận (0)
QC
Xem chi tiết
KL
3 tháng 5 2023 lúc 7:14

a) var cannang:array[10..100] of real;

b) a[7]:=20;

Bình luận (0)
HH
Xem chi tiết
NT
22 tháng 2 2023 lúc 11:09

var a:array[1..500]of real;

Bình luận (0)
UA
Xem chi tiết
BT
Xem chi tiết
KL
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)
HT
Xem chi tiết
NT
4 tháng 5 2021 lúc 11:49

uses crt;

var b:array[1..25]of integer;

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

readln;

end.

Bình luận (0)
NT
Xem chi tiết
NT
9 tháng 5 2021 lúc 20:45

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

Bình luận (0)
NT
9 tháng 5 2021 lúc 20:45

b) a[5]:=8;

Bình luận (0)
NT
9 tháng 5 2021 lúc 20:45

c) readln(a[2]);

Bình luận (0)