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.

21 tháng 4 2020

Đr bạn