Tin học kiểu mảng 1 chiều

[Thủy Ling]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

mọi người giúp ạ.

 

[lehongli]

Mình có ý thôi,
chứ viết mã cho mấy bài này khá dễ chỉ việc nắm rõ câu lệnh thôi.
không biết bạn có cần ý không?
Đó là mấy cái này chưa đụng đến phần của tụi chuyên tin chứ mà sâu cỡ đó rồi thì mình chịu luôn,

 

[Trâm Nguyễn Thị Ngọc]

mọi người giúp ạ.

bài 1:

Var
  n,i,t,d:integer;
  a:array[1..100] of integer;
Begin
 readln(n);
 For i:=1 to n do readln(a[i]);
 For i:=1 to n do
  If a[i] mod 3=0 then  t:=t+a[i];
writeln(' tong cac phan tu chia het cho 3 la:',t); 
 For i:=1 to n do
  If a[i]>=0 then d:=d+1;
 write('so cac phan tu co gia tri duong la:',d);
readln
End.

Bài 2: Tìm tổng hay là n vậy bn?

 

[ka1412]

B1:

uses crt;
var a:array[1..100] of integer;
i,x,y,n:integer;
begin
    write('Nhap n:');readln(n);
    for i:=1 to n do
    begin
        write('a[',i,']:');
        readln(a[i]);
    end;
    for i := 1 to n do
    begin
    if a[i] mod 3 =0 then x:=x+a[i];
    if a[i]>0 then inc(y);
    end;
    writeln('Tong cac phan tu chia het cho 3:',x);
    write('So cac so duong:',y);
    readln
end.

B2

uses crt;
var i,s:integer;
begin
    repeat
        inc(i);
        s := s+sqr(i);
    until s>=1000;
    write('n=',i);
    readln
end.

 

[Thủy Ling]

bài 1:

Var
  n,i,t,d:integer;
  a:array[1..100] of integer;
Begin
 readln(n);
 For i:=1 to n do readln(a[i]);
 For i:=1 to n do
  If a[i] mod 3=0 then  t:=t+a[i];
write(' tong cac phan tu chia het cho 3 la:',t); writeln;
 For i:=1 to n do
  If a[i]>=0 then d:=d+1;
 write('so cac phan tu co gia tri duong la:',d);
readln
End.

Bài 2: Tìm tổng hay là n vậy bn?

tính tổng S để tìm n ạ

 

[Trâm Nguyễn Thị Ngọc]

tính tổng S để tìm n ạ

Bạn ka1412 làm rồi nha bạn