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.
program im_14424;
uses crt;
var A: array[1..100000] of integer;
S,i,n: integer;
begin
clrscr;
write('Nhap vao n: ');
readln(n);
S:=0;
for i:=1 to n do
begin
write('Nhap A[',i,']: ');
readln(A[i]);
if (A[i] mod 2 = 0 then S:=S+i;
end;
write(S);
readln
end.
uses crt;
var a:array[1..100]of integer;
n,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');
until n>0;
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
uses crt;
var a:array[1..100]of integer;
n,i,max,min,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
writeln('Trung binh cua day so la: ',t/n:4:2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
if (a[i]%2!=0) dem++;
cout<<dem;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,dem;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) dem++;
cout<<dem;
return 0;
}
Câu 4:
Số lần biết trước:
- Mỗi ngày em nấu cơm 3 lần
- Mỗi ngày em đánh răng buổi sáng và buổi tối
- Em bị phạt chép 100 lần
Số lần chưa biết trước:
- Mẹ bảo em múc nước đến khi đầy bình
- Chữ em xấu, em bị phạt viết chữ đến khi đẹp
Câu 5: Dữ liệu kiểu mảng là một tập hợp hữu hạn các phần tử có thứ tự, mọi phần tử đều có chung kiểu dữ liệu, gọi là kiểu dữ liệu phần tử.
Câu 6:
Program HOC24;
var S: longint;
i,n: integer;
begin
write('Nhap n: '); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
write('S= ',s);
readln
end.
Câu 7:
Program HOC24;
var S: longint;
i,n: integer;
begin
s:=0;
for i:=1 to 200 do s:=s+i;
write('Tong 200 so nguyen dau tien la; ',s);
readln
end.
Câu 8;
Program HOC24;
var S: longint;
i,n: integer;
begin
s:=1;
for i:=1 to 30 do s:=s*i;
write('Tong 30 so nguyen dau tien la; ',s);
readln
end.
đau đầu quá!
dễ mà, chỉ là t ko làm dc k=1 tỷ thôi