viết chương trình nhập từ bàn phím 20 số tự nhiên bất kì. In ra màn hình giá trị lớn nhất,giá trị nhỏ nhất và trung bình cộng của 2 giá trị đó. In ra màn hình giá trị lớn nhất,giá trị nhỏ nhất và trung bình cộng của 2 giá trị đó
Var a:array[1..20] of integer;
max,min:integer;
tbc:real;
Begin
For i:=1 to 20 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Max:=a[1];
Min:=a[1];
For i:=2 to 20 do
Begin
If a[i] > max then max:=a[i];
If a[i] < min then min:=a[i];
End;
tbc:=(max+min)/2;
Writeln('So lon nhat la ',max);
Writeln('So nho nhat la ',min);
Write('Trung binh cong la ',tbc:10:2);
Readln;
End.
Viết vào chương trình nhập 3 số nguyên a,b,c.Em hãy tính tích giá trị lớn nhất và giá trị nhỏ nhất.Em hãy giải thích câu lệnh
C++:
#include <iostream>
#include <cmath>
int main{
int a,b,c; //Nhập giá trị
cin >> a >> b >> c; // lấy giá trị vào máy
int d = max(a,(b,c)); // tìm giá trị lớn nhất
int e = min(a,(b,c)); //tìm giá trị nhỏ nhất
int q = d*e; //tính tích
cout << q; // in ra máy
}
#include <iostream>
#include <cmath>
int main{
int a,b,c; //Nhập giá trị
cin >> a >> b >> c; // lấy giá trị vào máy
int d = max(a,max(b,c)); // tìm giá trị lớn nhất
int e = min(a,max(b,c)); //tìm giá trị nhỏ nhất
int q = d*e; //tính tích
cout << q; // in ra máy
}
xin lỗi ở trên mình viết nhầm
Viết vào chương trình nhập 3 số nguyên a,b,c.Em hãy tính tích giá trị lớn nhất và giá trị nhỏ nhất.Em hãy giải thích câu lệnh
Câu 6. Xác định Input, output, mô tả thuật toán và viết chương trình giải các bài toán:
a. Sắp xếp 2 số a, b theo thứ tự không tăng, không giảm.
b.Tìm giá trị lớn nhất, nhỏ nhất trong 3 số a, b, c.
Viết chương trình dùng biến mảng để nhập dãy số n từ bàn phím và in ra giá trị lớn nhất và giá trị nhỏ nhất của dãy số đó
Mai mình thi rồi!!!Giúp mình vs!!!!!
uses crt;
var a:array[1..100]of integer;
i,n,max,min: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];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
viết chương trình nhập từ bàn phím 20 số tự nhiên bất kì. In ra màn hình giá trị lớn nhất,giá trị nhỏ nhất và trung bình cộng của 2 giá trị đó.
Var a:array[1..20] of integer;
max,min:integer;
tbc:real;
Begin
For i:=1 to 20 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Max:=a[1];
Min:=a[1];
For i:=2 to 20 do
Begin
If a[i] > max then max:=a[i];
If a[i] < min then min:=a[i];
End;
tbc:=(max+min)/2;
Writeln('So lon nhat la ',max);
Writeln('So nho nhat la ',min);
Write('Trung binh cong la ',tbc:10:2);
Readln;
End.
Cho biết kết quả của lệnh sau: if (a > b) then writeln(a); else writeln(b);
A. Viết ra màn hình số nhỏ nhất trong 2 số a và b
B. Viết ra màn hình số lớn nhất trong 2 số a và b
C. Câu lệnh sai nên không thực hiện được
D. Đảo giá trị của hai biến a và b
Giả sử chúng ta đangnhập chiều cao của các bạn học sinh lớp 8 Em hãy viết chương trình in ra và tìm giá trị lớn nhất và nhỏ nhất của các dãy số đó
Bài 1
Var a:array:[1..1000] of real;
i,n:integer;
max,min:real;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap chieu cao ban thu ',i,' = ');readln(a[i]);
End;
max:=a[1];
min:=a[1];
For i:=2 to n do
begin
If a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
end;
writeln('Ban cao nhat la ',max:10:2);
write('Ban thap nhat la ',min:10:2);
Readln
End.
Viết chương trình nhập vào 3 số nguyên a,b,c và đưa ra màn hình giá trị lớn nhất của 3 số đó (sử dụng câu lệnh if)
a = int(input('Nhập số nguyên a: '))
b = int(input('Nhập số nguyên b: '))
c = int(input('Nhập số nguyên c: '))
if a > b and a > c:
print('Số lớn nhất là a =', a)
elif b > a and b > c:
print('Số lớn nhất là b =', b)
else:
print('Số lớn nhất là c =', c)
