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.

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

15 tháng 5 2023

'''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}")'''

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.

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.

a: var diem:array[1..200]of real;

b) var x:array[1..200]of integer;

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

i,n:integer;

begin

clrscr;

readln(n);

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

readln;

end.

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

b) a[5]:=8;

uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

for i:=1 to 20 do 

  begin

repeat

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

until a[i]>0;

end;

t:=0;

for i:=1 to 20 do 

  t:=t+a[i];

writeln('Tong cac so trong mang la: ',t);

dem:=0;

for i:=1 to 20 do 

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

writeln('Trong mang co ',dem,' so chan');

readln;

end.