Đk 3 cạnh làm tam giác tù và nhọn
Bài 6. Câu lệnh điều kiện
Viết chương trình nhập vào 1 mảng số nguyên có n phần tử. Tìm phần tử lớn nhất trong mảng và vi trí của phần tử lớn nhất đó
Program HOC24;
var a: array[1..1000] of integer;
i,n,max: integer;
begin
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
t:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
writeln('So lon nhat trong mang la: ',max);
write('Vi tri cua cac phan tu do la: ');
for i:=1 to n do if a[i]=max then write(i,' );
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 mảng số nguyên có 15 phần tử. In ra màn hình những số chia hết cho 5 và tổng của chúng ?
Var a:array[1..15] of integer;
i,s:integer;
Begin
For i:=1 to 15 do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
End;
Write('Cac so vua nhap la ');
For i:=1 to 15 do write(a[i],' ');
Writeln;
For i:=1 to 15 do
If a[i] mod 5 = 0 then s:=s+a[i];
Write('Tong cac so chia het cho 5 la ',s);
Readln;
End.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào 1 mảng số nguyên có 15 phần tử. In ra màn hình những số chia hết cho 5 và tổng của chúng ?
Khi thực hiện đoạn chương trình sau n:=0 while ; whilen
Khi thực hiện đoạn chương trình sau n:=0; while n
Em hãy vẽ sơ đồ khối của cấu trúc rẽ nhánh dạng khuyết và giải thích sơ đồ.
Anh (Chị) hãy sử dụng vòng lặp For, While, Do...While để viết chương trình tính N! với từng loại vòng lặp và in kết quả của theo từng loại vòng lặp
Anh (Chị) hãy sử dụng vòng lặp For, While, Do...While để viết chương trình tính N! với từng loại vòng lặp và in kết quả của theo từng loại vòng lặp