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.

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 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.

Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACALBƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:1.1. Dem<-0;1.2. Sum<-0.Bƣớc 2: Trong khi dem< N thì:2.1. Nhập giá trị số thực x từ bàn phím;2.2. Sum <- Sum + x;2.3. Dem<-Dem +1;Bƣớc 3: TB<- Sum/N;Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với...
Đọc tiếp

Bài 1: Tìm hiểu thuật toán sau rồi dựa vào đó để viết chương trình PSACAL
Bƣớc 1: Nhập n là số lương số thực sẽ nhập từ bàn phím:
1.1. Dem<-0;
1.2. Sum<-0.
Bƣớc 2: Trong khi dem< N thì:
2.1. Nhập giá trị số thực x từ bàn phím;
2.2. Sum <- Sum + x;
2.3. Dem<-Dem +1;
Bƣớc 3: TB<- Sum/N;
Bƣớc 4. Đưa thông báo ra màn hình, rồi kết thúc.
Bài 2: Nhập chương trình sau vào máy tính chạy thử và cho biết kết quả với các trường hợp N = 5;
45; 55; 67; 91
Program So_nguyen_to;
Uses crt;
Var n, i: Integer;
BEGIN
clrscr;
Write(„Nhap vao mot so nguyen : „); Readln(n);
If n <=1 then Writeln(„Khong la so nguyen to‟);
else

Begin
i: = 2;
While ( n mod I <>0) do i: = i+1;
If I = n then writeln(n,; la so nguyen to‟)
else writeln(n,‟ khong la so nguyen to‟);
end;
Writeln („Nhan phim bat ky de thoat chuong trinh‟);
Readln;
END.

0