Uses crt;
Var a:array[1..6] of integer;
i,min:integer;
Begin
Clrscr;
For i:=1 to 6 do
Begin
Write('a[',i,']='); readln(a[i]);
end;
Min:=a[1];
For i:=1 to 6 do
If min<a[i] then min:=a[i];
Writeln(min);
Readln;
End.
Viết chương trình nhập vào mảng số nguyên gồm 5 phần tử sau đó in ra màn hình phần tử có giá trị lớn nhất Câu 2: viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình giá trị nhỏ nhất
Viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình tổng phần tử có giá trị là số chia hết cho 3 và 5
Viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình tích các phần tử có giá trị là số chia hết cho 3 Giúp nhé
Viết chương trình nhâp vào mảng số nguyên gồm 5 phần tử sau đó in ra màn hình tổng các phần tử có giá trị lớn hơn 7
Viết chương trình nhập vào dãy gồm n phần tử (n<15). Sau đó in ra màn hình giá trị các phần tử đó và cho biết có bao nhiêu phần tử có giá trị là số nguyên tố , in ra màn hình các số nguyên tố đó.
Viết chương trình nhập vào mảng số nguyên gồm 5 phần tử sau đó in ra phần tử có giá trị là số nguyên dương
Biết chương trình nhập vào 1 bến mảng gồm n số nguyên xuất ra màn hình độ dài và giá trị của các phần tử trong mảng đó
sử dụng biến mảng Viết chương trình nhập vào một dãy số gồm n số nguyên từ bàn phím in ra màn hình giá trị lớn nhất của dãy số đó
Chương trình nhập vào số nguyên gồm 4 phần tử sau đó in ra màn hình tổng các phần tử có giá trị là số lẻ
