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.

Câu 1:

uses crt;
var a:array[1..100]of integer;
i,t,dem:integer;
begin
clrscr;
t:=0;
for i:=1 to 200 do
if i mod 2=1 then t:=t+i;
writeln('Tong cua 100 so le dau tien la: ',t);
readln;
end.

Câu 2:

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

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

c) readln(a[2]);

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 a:array[1..50]of real;

b) a[5]:=8;

3 tháng 5 2023

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

b) a[7]:=20;

18 tháng 6 2020

Câu 1:

Câu 2:

a) A:array[1..5] of Real;

b) A[5]:=8;

c) A:array[1..50] of Integer;

d) Readln(A[2]);

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.

25 tháng 4 2023

a)

program TenCuaMinh;
var
  i: integer;
begin
  for i := 1 to 10 do
    writeln('Tên của mình là: <tên>');
end.

b)

program MangSoNguyen;
var
  M: array[1..100] of integer;
begin
end.