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.
olm-1.102018260 , bạn vào lớp này ấn tham gia rồi chờ cô duyệt nhé !
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.
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.