K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

20 tháng 4 2017

ct1:

program (tự đặt tên);

uses crt;

var max,i,n:integer;

begin

clrscr;

max:=0; i:=1;

while i<=10 do

begin

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

if n>max then max:=n;

i:=i+1;

end;

write('so lon nhat la:',max);

readln

end.

ct2:

program bt;

uses crt;

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

max,i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

max:=a[1];

for i:=1 to 10 do

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

write('so lon nhat trong cac so la:',max);

readln

end.

Sự khác nhau giữa hai ct:

- Khác nhau về cách khai báo

- Khác nhau ve cách trình bày

Bạn hãy chạy thử chương trình trước nha hihi

22 tháng 4 2017

CT2:

Program Max_10;

Uses crt;

Var: i,Max:integer;

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

Begin

Clrscr;

For i:= 1 to 10 do

Write('Hay nhap so thu ',i,' : '); Readln(a[i]);

Max:= a[1];

For i:= 2 to 10 do

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

Writeln('So lon nhat trong 10 phan tu ban vua nhap la ',Max);

Readln;

End.

28 tháng 4 2022

uses crt;

var n,i:integer;

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

begin

clrscr;

write(‘nhap so phan tu cua day:’);readln(n);

for i:=1 to n do

begin

write(‘a[‘,i,’]=’);readln(a[i]);

end;

writeln(‘day so da nhap:’);

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

readln;

end.

a: 

#include <bits/stdc++.h>

using namespace std;

double a[1000];

int n,i;

int main()

{

cin>>n;

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

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

return 0;

}

b: 

#include <bits/stdc++.h>

using namespace std;

long long a[50],n,i,t;

int main()

{

cin>>n;

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

t=0;

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

cout<<t;

return 0;

}

30 tháng 4 2022

bạn có thể nào làm cho mình phần b làm theo kiểu lớp 8 đc không chứ nhìn như này mik ko hiểu

 

uses crt;

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

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 

 if (a[i]>0) and (a[i] mod 5=0) then write(a[i]:4);

readln;

end.

12 tháng 5 2021

uses crt;

var n,i:integer;

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

begin

clrscr

write(‘nhap so phan tu cua day:’);readln(n);

for i:=1 to n do

begin

write(‘a[‘,i,’]=’);readln(a[i]);

end;

writeln(‘day so da nhap:’);

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

readln;

end.

uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

writeln('Day so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

max:=a[1];

for i:=1 to n do 

 if max<a[i] then max:=a[i];

writeln('So lon nhat la: ',max);

readln;

end.

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.

uses crt;

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

n,i,t:integer;

begin

clrscr;

n:=10;

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.