viết chương trình in ra màn hình số lớn nhất và đếm trong dãy đó bao nhiêu số chẵn, số lẻ
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.
4 tháng 5 2021
Var z:array[1..1000] of longint;
n, i, max:longint;
Begin
Readln(n);
For i:=1 to n do begin writeln('s',i,'=');
Readln(z[i]);
max:= z[1];
End;
4 tháng 5 2021
uses crt;
var a:array[1..100]of integer;
i,n,max,dem1,dem2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
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.
4 tháng 5 2021
uses crt;
var b:array[1..25]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
readln;
end.
VX
1
4 tháng 5 2021
uses crt;
var a:array[1..4]of integer;
i:integer;
begin
clrscr;
for i:=1 to 4 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 4 do
write(a[i]:4);
readln;
end.
4 tháng 5 2021
uses crt;
var a:array[1..20]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;
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day la: ',t);
for i:=1 to n do
if a[i]>50 then write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]<30 then write(a[i]:4);
readln;
end.
MH
2
4 tháng 5 2021
*For to do:
-Cú pháp: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
4 tháng 5 2021
*For downto do
-Cú pháp: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;
4 tháng 5 2021
Câu 2:
uses crt;
var a:array[1..20]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
write(a[i]:4);
readln;
end.
4 tháng 5 2021
Câu 3:
uses crt;
var a:array[1..20]of integer;
i,n,t,t1,t2,t3: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
write(a[i]:4);
writeln;
t:=0;
t1:=0;
t2:=0;
for i:=1 to n do
begin
t:=t+a[i];
if a[i] mod 2=0 then t1:=t1+a[i]
else t2:=t2+a[i];
end;
writeln('Tong cua day la: ',t);
writeln('Tong cac so chan la: ',t1);
writeln('Tong cac so le la: ',t2);
t3:=0;
for i:=1 to n do
if a[i] mod 3=0 then t3:=t3+a[i];
writeln('Tong cac so chia het cho 3 la: ',t3);
readln;
end.
4 tháng 5 2021
uses crt;
var x:array[1..100]of real;
n,i:integer;
tb:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('X[',i,']='); readln(x[i]);
end;
tb:=0;
for i:=1 to n do
tb:=tb+x[i];
writeln(tb/n:4:2);
readln;
end.
4 tháng 5 2021
a)
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;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
4 tháng 5 2021
b)
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
mn giúp vs ạ chiều e thi rồi
uses crt;
var a:array[1..100]of integer;
i,n,max,dem1,dem2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('So lon nhat la: ',max);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
writeln('So so chan la: ',dem1);
writeln('So so le la: ',dem2);
readln;
end.