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
Nguyễn Vũ Hoàng Long
Xem chi tiết
Khanh Linh
Xem chi tiết
Minh Lệ
18 tháng 2 2021 lúc 19:10

Program HOC24;

var i.n: integer;

a: array[1..250] of integer;

begin

for i:=1 to n do

begin

write('Nhap diem toan cua ban thu ',i,': '); readln(a[i]);

end;

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

readln

end.

Buddy
18 tháng 2 2021 lúc 9:35

uses crt;

var i,n:integer;     A: Array[1..50] of integer;begin        clrscr;        readln(n);readln(k);        for i:=1 to n do        begin                write('A[',i,'] = ');                readln(A[i]);        end;        for i:=1 to A[i] do        if (A[i] > k) then write(A[i]);        readlnend.

Nguyễn Lê Phước Thịnh
18 tháng 2 2021 lúc 20:51

uses crt;

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

i,n:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=50);

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do

  writeln(a[i]:4:2);

readln;

end.

Thơm Phạm
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
29 tháng 11 2018 lúc 4:16

Bài thực hành 1 trang 100 SGK Tin học 4 | Giải bài tập Tin học lớp 4 hay nhất tại VietJack

Huy
Xem chi tiết
nguyễn mạnh hiếu
5 tháng 12 2021 lúc 19:36

var a,b:longint;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
 cau a) if a>b then write(a);
cau b) if a=b then write('hai so bang nhau') else write('hai so ko bang nhau');
cau c) if a mod b=1 then write('a le') else write('a chan');
readln
end.

mỗi câu a,b,c thì readln rồi end nhé

Linh Tran
Xem chi tiết
Bùi Anh Tuấn
14 tháng 3 2021 lúc 20:20

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
11 tháng 8 2019 lúc 13:09

1) Canthi

2) Thanmay

3) Xocung

4) Manhinh

5) Chuot

6) Gu

7) Banphim

Nguyễn Vũ Thanh Nguyên
3 tháng 11 2022 lúc 19:02

1) Canthi

2) Thanmay

3) Xocung

4) Manhinh

5) Chuot

6) Gu

7) Banphim

 
Đoàn Thị Trúc Vy
Xem chi tiết
Mẫn Nhi
8 tháng 2 2022 lúc 14:06

Tham khảo :

Program HOC24;

var i,n: integer;

a: array[1..15] of integer;

begin

for i:=1 to 15 do

begin

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

end;

for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');

readln

end .

Huy Hoàng Phạm
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 12 2021 lúc 8:06

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[10000];

int main()

{

cin>>n;

for (i=1; i<=n; i++)

cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}