Question

1. kiểm tra xem số N có phải là số nguyên dương nhỏ hơn 15 không

2. nhập mảng các số nguyên gồm N phần tư

3.xuất ra màn hình các giá trị của một mảng số ngyên A

4. tìm số nhỏ nhất trong mảng

Answer 1

Câu 1:

uses crt;
var     N : integer;
begin
        clrscr;
        write('Nhap N: '); readln(N);
        if n < 15 then
                writeln(N, ' nho hon 15')
        else
                write(N, ' lon hon 15');
        readln();
end.

Câu 2:

uses crt;
var     N, i : integer;
        arr : array[1..1000] of integer;
begin
        clrscr;
        write('Nhap N: '); readln(N);
        writeln();
        for i := 1 to n do
                begin
                        write('Nhap mang thu [',i,']: '); readln(arr[i]);
                        writeln();
                end;
        readln();
end.

Câu 3:

uses crt;
var     N, i : integer;
        arr : array[1..1000] of integer;
begin
        clrscr;
        write('Nhap N: '); readln(N);
        writeln();
        for i := 1 to n do
                begin
                        write('Nhap mang thu [',i,']: '); readln(arr[i]);
                        writeln();
                end;
        writeln('----------Xuat mang----------');
        for i := 1 to n do
                begin
                        write(arr[i], ' ');
                end;
        readln();
end.

Câu 4:

uses crt;
var     N, i, min, temp : integer;
        arr : array[1..1000] of integer;
begin
        clrscr;
        write('Nhap N: '); readln(N);
        writeln();
        for i := 1 to n do
                begin
                        write('Nhap mang thu [',i,']: '); readln(arr[i]);
                        writeln();
                end;
        writeln('----------Tim so nho nhat trong mang----------');
        min := arr[1];
        for i := 2 to n do
                begin
                        if min > arr[i] then
                                min := arr[i];
                end;
        write('So nho nhat trong mang la so ', min);
        readln();
end.

Chúc bạn học tốt!

_thanhtrong_