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.

11 tháng 4 2021

B1 gán max=a[1];

B2 xét nếu max<a[i] thì gán max=a[i];

B3 inkeets quả ra màn hình

11 tháng 4 2021

13 tháng 9 2023

Chương trình

loading...

Kết quả

loading...
19 tháng 5 2023

Var a:array:[1..1000] of real;

i,n:integer;

max,min,s,tb:real;

Begin

Write('Nhap so luong hoc sinh: ');readln(n);

For i:=1 to n do

Begin

Write('Nhap chieu cao hs thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

tb:=s/n;

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('Chieu cao lon nhat la ',max:10:1);

Writeln('Chieu cao nho nhat la ',min:10:1);

Write('Chieu cao trung binh la ',tb:10:1);

Readln

End.

19 tháng 12 2021

c: 

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<a*b;

return 0;

}

27 tháng 11 2021

#include<iostream>

using namespace std;

int main() {
int a, b;

cout << "chiều dài : "; cin >> a;

cout << "chiều rộng : "; cin >> b;

int h = a + b;

cout << "Chu vi hình chữ nhật là : " << h * 2;

cout << "Diện tích hình chữ nhật là : " << a * b;

return 0; 

}

Mình viết chương trình như thế này thì chương trình sẽ chạy như sau :

Mt sẽ hiện ra là:  Chiều dài : <nhập chiều dài>

Mt sẽ hiện ra là:  Chiều rộng : <nhập chiều rộng>

sau khi nhập đủ giá trị cho hai biến a và b tạo biến h lưu giá trị a + b

xuất ra màn hình: Chu vi là : <giá trị của h * 2>

xuất ra màn hình: Diện tích là : <giá trị của a * b>

13 tháng 5 2023

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.

13 tháng 5 2023

thanks🥰🥰

uses crt;

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

i,n,nn,s:integer;

begin

clrscr;

readln(n);

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

nn:=a[1];

s:=1;

for i:=1 to n do 

begin

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

s:=s*a[i];

end;

writeln(nn);

writeln(s);

readln;

end.

13 tháng 9 2023

1) Mô tả thuật toán điều khiển nhân vật Mèo

Bước 1. Nhân vật Mèo nói: “Trời lạnh, điều tồi tệ với cậu là gì” trong 2 giây

Bước 2. Nhân vật Mèo hỏi: “Sao lại vậy?” trong 1,5 giây.

Bước 3. Nhân vật Mèo cười trong 2,5 giây.

2) Mô tả thuật toán điều khiển nhân vật Hươu cao cổ

Bước 1. Nhân vật Hươu cao cổ suy nghĩ trong 1,5 giây.

Bước 2. Nhân vật Hươu cao cổ đáp: “Là uống trà nóng, Mèo ạ!” trong 2 giây

Bước 3. Nhân vật Hươu cao cổ trả lời: “Khi trà xuống được bụng mình thì nó nguội lạnh mất rồi!” trong 2 giây.

Bước 4. Nhân vật Hươu cao cổ cười trong 2,5 giây.