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.

21 tháng 6 2020

program hello;

uses crt;

Var n,i,j,k: integer;

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

begin;

a[1]:=k;

Readln(n);

For i:=1 to n do

Begin;

Writeln('nhap a[',i,'] '); Readln(a[i]);

End;

For i:=1 to n-1 do

For j:=i+1 to n do

If a[i]<a[j] then k:=a[j];

Writeln('gia tri lon nhat la', k);

end.

lên mạng đi bạn 

làm Pascal khó lắm

program Iza_dang_cap;

uses crt;

var n,i: integer;

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

begin

clrscr;

writeln('nhap cac phan tu cua day');

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

writeln('cac phan tu cua day so la: ' )

for i:=1 to n do write(A[i],' ');

readln

end.

p/s : bn nhập chương trình zô pascal xem cóa sai j ko nhá~~

21 tháng 4 2020

Đr bạn

Bài 1(2 điểm):Tìm DateViết chương trình cho biết số ngà của một tháng.Bài 2(2 điểm):Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lơn nhất.N được nhập từ bàn phím. Bài 3(3 điểm ):Hành tháng gia đình em đều nhận được hoá đơn thanh toán tiền điện.Tiền điện tiêu thụ được tính như sau:-100 số đầu tiên mỗi số trả 550 đồng-Từ 101 đến 150...
Đọc tiếp

Bài 1(2 điểm):Tìm Date

Viết chương trình cho biết số ngà của một tháng.

Bài 2(2 điểm):

Viết chương trình nhập N số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và số lơn nhất.N được nhập từ bàn phím. 

Bài 3(3 điểm ):Hành tháng gia đình em đều nhận được hoá đơn thanh toán tiền điện.

Tiền điện tiêu thụ được tính như sau:

-100 số đầu tiên mỗi số trả 550 đồng

-Từ 101 đến 150 số mỗi số trả 1100 đồng

-Từ 151 đến 200 số mỗi số trả 1500 đồng

-Trên 200 số mỗi số trả 2000 đồng

-Số tiền phải trả là số tiền tính được cộng thêm 10% thuế VAT.

Biết rằng số luongj điện tiêu thụ trong 1 tháng của gia đình em là A(KW).

Hãy lập trình tính số tiền điện gia đình em phải thanh toán trong 1 tháng bất kỳ.

Bài 4(3 điểm)

Viết chương trình nhập 3 số (a,b,c) là số đo 3 cạnh của 1 tam giác(a,b,c>0;tổng hai số lớn hơn số  kia - Nếu không thoả mãn điều kiện thì yêu cầu và cho phép nhập lại đến khi thoả mãn). Thông báo ra màn hình tam giác đó là tam giác gì, tính diện tích của tam giác đó theo công thức diện tích tam giác bằng  \(\sqrt{p\left(p-a\right)\left(p-b\right)\left(p-c\right)}\) (P là nửa chu vi của tam giác).

Nhok_baobinh đây là đề thi của huyện mk .

0