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.
câu đấy cô đổi thành "Sử dụng điện thoại thông minh để thực hiện hành động nào sau đây vi phạm đạo đức, pháp luật" nha, cô bảo bỏ chữ KHÔNG rồi
Var a:array:[1..1000] of integer;
i,n,max:integer;
Begin
Write('Nhap so luong phan tu n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to n do
Write(a[i]:8);
writeln;
max:=a[1];
For i:=2 to n do
if a[i] > max then max:=a[i];
write('So lon nhat la ',max);
Readln
End.
Bước 1 nhập mã lớp: olm-1.102018260
Bước 2: nhấn tìm kiếm
Bước 3: chọn tham gia
Bước 4 chat với cô qua Olm ghi tên mà em muốn đổi sang.
Bước 5: chờ cô duyệt và đổi tên hiển thị.
bạn tham khảo
uses crt;
var a:array[1..200]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
program BaiTap;
var
arr: array[1..200] of integer;
n, i, sumOfOdd, productOfEven: integer;
begin
writeln('Nhap so phan tu: ');
readln(n);
sumOfOdd := 0;
productOfEven := 1;
for i := 1 to n do
begin
writeln('Nhap phan tu thu ', i, ': ');
readln(arr[i]);
if arr[i] mod 2 = 1 then
sumOfOdd := sumOfOdd + arr[i]
else if arr[i] mod 2 = 0 then
productOfEven := productOfEven * arr[i];
end;
writeln('Tong cac so le: ', sumOfOdd);
writeln('Tich cac so chan: ', productOfEven);
readln;
end.
Tham khảo!
Nháy đúp chuột vào viền hình vẽ để chọn đối tượng, mở dải lệnh ngữ cảnh Format.
- Thay đổi màu nền: Chọn nút lệnh Shape Fill → Nháy chuột để chọn màu nền (Orange, Accent 2, Lighter 80%).
- Thay đổi màu sắc đường viền: Chọn nút lệnh Shape Outline → Nháy chuột để chọn màu nền (Orange, Accent 2, Darker 25%).
- Thay đổi độ dày đường viền: Chọn nút lệnh Shape Outline → Nháy chọn Weight
bạn dùng điện thoại gì vậy?
Cô chào em, em dùng điện thoại nào hệ điều hành bao nhiêu.