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)
Vương Minh Lãng
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 2 2021 lúc 20:25

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

for i:=1 to n do 

begin

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

end;

for i:=1 to n do 

  write(a[i]:4);

Bình luận (0)
Quỳnh Như 8a4
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 5 2022 lúc 9:10

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

b: for i:=1 to 40 do write(diem[i]:4);

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

}

Bình luận (0)
Lê Quang Huy
Xem chi tiết
Luân Đào
30 tháng 12 2020 lúc 6:00

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

n,i: integer;

tb: real;

begin

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

for i:=1 to n do 

begin

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

end;

tb:=0;

for i:=1 to n do

tb:=tb+a[i];

tb:=tb/n;

for i:=1 to n do 

if a[i] > tb then writeln(a[i]);

readln

end.

Bình luận (0)
Võ Thái Tuyết Nhi
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 1 2021 lúc 14:02

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

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