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
Thư ĐT
Xem chi tiết
PC Vũ
Xem chi tiết
Buddy
10 tháng 5 2021 lúc 20:21

uses crt;

var n, i, j, dem: longint; {Bạn có thể thay longint thành integer nha}

A:array[1..1000] of longint;

begin

clrscr;

Write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,': ');

readln(A[i]);

end;

Write('Cac so nguyen to co trong mang la: ');

for i:=1 to n do

begin

dem:=0;

for j:=2 to A[i]/2 do

if A[i] mod j=0 then dem:=dem+1;

if dem=0 then write(A[i],' ');

end;

end.

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

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

t:=t+a[i];

writeln(t);

readln;

end.

Lê Thị Thu Phương
7 tháng 6 2021 lúc 21:23

uses crt;
var a:array[1..1000000] of longint;
      n,i,s:longint;
begin
      clrscr;
      write('n='); readln(n);
      for i:=1 to n do 
            begin
                  write('a[',i,']: '); readln(a[i]);
                  inc(s,a[i]);
            end;
      writeln('Tong: ',s);
      readln;
end.

Minh Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 23:26

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

readln;

end.

võ nguyên đức anh
Xem chi tiết
Tốngg Khắcc Nguyênn
12 tháng 4 2023 lúc 20:57

uses crt;
var n,i,max : integer;
a : array[1..100] of integer;
begin

   clrscr;
   write('Nhap so n :'); readln(n);
   for i:=1 to n do

     begin
        write('Nhap phan tu thu ',i,' la : '); readln(a[i]);
     end;
max:=a[1];
for i:=2 to n do if max<a[i] then max:=a[i];
write('So *** nhat trong mang la :', max);

min:=a[1];
for i:=2 to n do if min>a[i] then min:=a[i];
write('So nho nhat trong mang la :', min);
readln
end.

Thwn Dayy
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2023 lúc 9:27

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

i,n,min:integer;

begin

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

for i:=1 to n do

begin

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

end;

min:=a[1];

for i:=2 to n do

if min > a[i] then min:=a[i];

write('So nho nhat la ',min);

readln

end.

lamgi hoi
Xem chi tiết
Anh Phạm
25 tháng 7 2021 lúc 14:23

cau 1:

uses crt;

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

n,i,min: integer;

begin

readln(n);

for i:=1 to n do

readln(a[i]);

min:=a[1];

for i:=2 to n do

if min>a[i] then min=a[i];

writeln(a[i]);

readln;

end.

cau 2:

uses crt;

g:text;

s:string;

const fo='CHUSO.TXT'

begin

assign(g,fo);

rewrite(g);

readln(s);

for i:=1 to length(s) do

if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);

writeln(g,s);

end.

Bảo Trâm
Xem chi tiết
Nguyễn Lê Phước Thịnh
12 tháng 4 2021 lúc 12:51

uses crt;

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

i,n,s:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

s:=1;

for i:=1 to n do 

  s:=s*a[i];

writeln(s);

readln;

end.

Vinh Bùi
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 4 2022 lúc 22:09

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

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

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

return 0;

}

 

Thuytram301
Xem chi tiết
Nguyễn Lê Phước Thịnh
7 tháng 5 2021 lúc 21:02

uses crt;

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

i,n:integer;

begin

clrscr;

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 

  writeln('Diem cua ban thu ',i,' la: ',a[i]:4:2);

readln;

end.