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.

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á~~

Uses crt;

Var

S,i,n:Integer;

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

BEGIN

Write( ‘ Nhap so n:’ );

 Readln( n );

For i:=1 to n do

begin

 a[i]:=i;

 s:=s+a[i]

end;

Writeln( ‘Tong = ’, S);

Readln;

END.

2 tháng 2 2020

các bạn có thể trả lời nhanh đc ko??? mk đag cần gấp.

2 tháng 2 2020

program UCLN;

uses crt;

var a,b:integer;

begin

          clrscr;

          writeln('Moi ban nhap so a:=');readln(a);

          writeln('Hay nhap so b:='):readln(b);

          While a<>b do

                              if (a>b) then a:=a-b else b:=b-a;

          write('Uoc chung lon nhat la ',a or b);

           readln;

end.

21 tháng 4 2020

Đr bạn