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 bai1;
uses crt;
var a: array[1..100] of integer;
n,i: integer;
begin
clrscr;
write('nhap n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
writeln('cac so chan la :');
for i:= 1 to n do
if a[i] mod 2 = 0 then write(a[i] :4);
writeln;
writeln('cac so le la :');
for i:= 1 to n do
if a[i] mod 2 <> 0 then write(a[i] :4);
writeln;
writeln('cac so chia het cho 3 la :');
for i:= 1 to n do
if a[i] mod 3 = 0 then write(a[i] :4 );
readln;
end.
1:
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%5==0) dem++;
}
cout<<dem;
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
GIÚPGIÚP MIK NA
Lần sau bạn nhớ nêu rõ yêu cầu đề bài là viết chương trình hay viết thuật toán nhé. Bạn chọn là Tin học 10 vì đa số lớp 10 học viết thuật toán nên mình sẽ viết thuật toán.
- Thuật toán liệt kê:
+ Bước 1: Nhập n; dãy a1,a2,a3,...,an
+ Bước 2: i←1; d←0;
+ Bước 3: Nếu i>n thì in ra d và kết thúc thuật toán
+ Bước 4: Nếu ai = 5 thì d←d+1;
+ Bước 5: i←i+1; quay lại bước 3
- Thuật toán sơ đồ khối:
Bn nèo có avatar này chưa
ukm,đây là ảnh mạng,rất nhìu ngừ có,nhưng ảnh của m chỉ có mk m có,mà người ta có cx ko dám up lên avt đâu nhỉ oOo_HằNg MoOn_oOo
a: uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 70 do s:=s+i;
write(s);
readln;
end.
b:
uses crt;
var s,i:integer;
begin
clrscr;
s:=1;
for i:=1 to 80 do
if i mod 2=0 then s:=s+i;
write(s);
readln;
end.
Áo team .
Áo team 
chỉ ctv hoặc giáo viên mới lm đc thôi! còn chọn đúng thì nhấn đúng là ok bn!