Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Utfg aghjn
Xem chi tiết
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);

 

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.

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

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;

Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:45

b) a[5]:=8;

Nguyễn Lê Phước Thịnh
9 tháng 5 2021 lúc 20:45

c) readln(a[2]);

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

Minh Nguyễn Hải
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 21:56

#include <bits/stdc++.h>

using namespace std;

long long i,n,a[50];

int main()

{

cin>>n;

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

return 0;

}

Quân Chí
Xem chi tiết
Kiều Vũ Linh
3 tháng 5 2023 lúc 7:14

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

b) a[7]:=20;

Huyền Hồ
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2023 lúc 11:09

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

Phạm Công Ngọc Quốc
Xem chi tiết
Phạm Công Ngọc Quốc
26 tháng 4 2022 lúc 21:23

giúp mik với mai thi mik thi rồi🙏🙏

 

Thế Thôi
26 tháng 4 2022 lúc 22:48

program b1;
uses crt;
var i: integer; a:array[1..100] of integer; s:longint;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln('cac phan tu chan la:');
s:=0;
for i:=1 to 10 do if a[i] mod 2=0 then writeln(a[i],' ');
write('Tong cac phan tu le la:');
for i:=1 to 10 do if a[i] mod 2<>0 then s:=s+a[i]; write(s);
readln;
end.

Tham khảo!

hạnh trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
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.