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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
31 tháng 1 2021
uses crt;
var a:array[1..100]of integer;
i,n,min,dem: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];
dem:=0;
for i:=1 to n do
if min=a[i] then inc(dem);
writeln('So phan tu co gia tri nho nhat la: ',dem);
readln;
end.
25 tháng 3 2021
1:
uses crt;
var a:array[1..100,1..100]of integer;
i,n,j,m,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
write('Nhap m='); readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('A[',i,',',j,']='); readln(a[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
for j:=1 to m do
begin
if max<a[i,j] then max:=a[i,j];
if min>a[i,j] then min:=a[i,j];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
QT
Quoc Tran Anh Le
Giáo viên
23 tháng 8 2023
Thời gian xuất hiện mỗi khung là 2000ms hoặc 2s (sẽ hiển thị trong 2s trước khi chuyển sang khung tiếp theo).
8 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long a,b;
//chuongtrinhcon
long long gcd(long long a,long long b)
{
if (b==0) return(a);
return gcd(b,a%b);
}
//chuongtrinhchinh
int main()
{
cin>>a>>b;
if ((a>0 && b>0) or (a<0 && b<0)) cout<<a/gcd(a,b)<<" "<<b/gcd(a,b);
else cout<<"-"<<-a/gcd(-a,b)<<" "<<b/gcd(-a,b);
return 0;
}
ND
1
7 tháng 11 2019
uses crt;
var a:array[1..50]of char;
i,n:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (n>0) and (n<=50);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------xuat--------------------}
for i:=1 to n do
write(a[i]:4);
readln;
end.
7 tháng 11 2019
quá đơn giản
bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>100) then writeln('ban da nhap sai,yeu cau ban nhap lai');
until (n>0) and (n<=100);
for i:=1 to n do
begin
write('a[',i.']='); readln(a[i]);
end;
{--------------xuat-day--------------}
for i:=1 to n do
write(a[i]:4);
{-------------xu-ly----------------}
dem:=0;
for i:=1 to n do
if a[i] mod 2=1 then inc(dem);
writeln('so luong so le trong day la: ',dem);
readln;
end.
bài 2:
uses crt;
var a:array[1..50]of char;
i,n:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (n>0) and (n<=50);
for i:=1 to n do
write('a[',i,']='); readln(a[i]);
{------------------xuat--------------------}
for i:=1 to n do
write(a[i]:4);
readln;
end.
bài 3:
uses crt;
var st1,st2:string;
d,d1:integer;
begin
clrscr;
write('nhap xau thu 1:'); readln(st1);
write('nhap xau thu 2:'); readln(st2);
d:=length(st1);
d1:=length(st2);
if d>d1 then writeln('xau thu 1 dai hon xau thu 2');
if d<d1 then writeln('xau thu 2 dai hon xau thu 1');
if d=d1 then writeln('hai xau co do dai bang nhau');
readln;
end.
7 tháng 11 2019
xin lỗi bạn , mình xin sửa lại bài 2 như sau:
uses crt;
var a:array[1..50]of char;
i,n:integer;
begin
clrscr;
repeat
write('n='); readln(n);
if (n<=0) or (n>50) then writeln('ban da nhap sai, yeu cau ban nhap lai');
until (n>0) and (n<=50);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------xuat--------------------}
for i:=1 to n do
write(a[i]:4);
readln;
end.
ko thick
lớp 11 ngủ trước 12h là quá lười ; haizz