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;

}