Xác định bài toán , xây dựng thuật toán và diễn tả thuật toán ( nếu có thể , không thì thôi ) của các bài toán sau :
1. Tìm các số chia hết cho 3 trong dãy số n cho trước
2. Đếm các số k xuất hiện trong dãy số n cho trước
3. Tìm các số chẵn trong dãy số n cho trước và tính tổng của chúng
4. Tính tổng các số nguyên từ 1 đến n
Giúp mình nha ! Làm được câu nào hay câu ấy , không cần làm tất .
Hà Ngân HàGiao HuỳnhTuấn Anh Phan NguyễnAimeePhạm Thanh TườngPhạm Hoàng GiangDương Hoàng MinhPhương Anh (NTMH)Trần Hoàng NghĩaThuyết DươngBỉ NgạnMaria Nguyễn Thiên Trang
Program bai1;
uses crt;
var a: array [1..100] of integer;
i,n: integer;
begin
clrscr;
write('nhap mang n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
writeln('cac so chia het cho 3 :');
for i:= 1 to n do
if ( a[i] mod 3 = 0) then write(a[i] :4);
readln;
end.
Program bai2;
uses crt;
var a: array [1..100] of integer;
i,n,k,dem: integer;
begin
clrscr;
write('nhap mang n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
dem:=0;
write('nhap so k ='); readln(k);
for i:= 1 to n do
if a[i] = k then dem:= dem+1;
writeln('co ',dem,' so ',k,' xuat hien trong mang ');
readln;
end.
program bai3;
uses crt;
var a: array [1..100] of integer;
n,i: integer;
s: real;
begin
clrscr;
write('nhap mang n ='); readln(n);
for i:= 1 to n do
begin
write('nhap a[',i,'] ='); readln(a[i]);
end;
writeln('cac so chan trong day la :');
for i:= 1 to n do
if a[i] mod 2 = 0 then write(a[i] : 4);
writeln;
s:=0;
for i:= 1 to n do
if a[i] mod 2 = 0 then s:=s+a[i];
writeln('tong cua chung = ',s);
readln;
end.
