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.

25 tháng 4 2022

program b1;
uses crt;
var i,n: integer; a:array[1..20] of integer; 
begin
clrscr;
for i:=1 to 20 do
begin
write('a[',i,']='); readln(a[i]);
end;
write('Cac phan tu la:');
for i:=1 to 20 do
write(a[i], ' ');
readln;
end.
Tham khảo!

26 tháng 3 2022

uses crt;
var a: array[1..100] of longint;
    i,n,max,min: longint;

begin
    clrscr;
    readln(n);
    for i:=1 to n do
    begin
        write('Nhap so thu ',i,': '); 
        readln(a[i]);
    end;
    max:=a[1]; min:=a[1];
    for i:=1 to n do
    begin
        if max<a[i] then max:=a[i];
        if min>a[i] then min:=a[i];
    end;
    writeln('So lon nhat trong mang la: ',max);
    write('So nho nhat trong mang la: ',min);
    readln
end.

12 tháng 4 2022

In ra màn hình -> dùng lệnh write hoặc writeln

-> For i:=1 to 10 do writeln(diem[i]);

7 tháng 5 2018

Mình làm ở đây

https://pastebin.com/0SYGG2Re

21 tháng 5 2019

Đáp án A

2 tháng 2 2018

Đáp án A

17 tháng 4 2018

Đáp án A