Question

e chào mn ạ, mn giúp e những câu này với ạ:((

1. Viết lệnh khai báo (khai báo trực tiếp) mảng một chiều A nguyên gồm 100 phần tử?

2. Để tham chiếu đến phần tử thứ 10 của mảng A ta viết.....................................................................

3. Viết chương trình cho bài toán đặt vấn đề với số ngày bất kỳ

4. Viết chương trình đếm các phần tử chẵn của mảng

Answer 1

Bài 1:

var a:array[1..100]of integer;

Bài 4:

uses crt;

var n,i,dem:integer;

a:array[1..100]of integer;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do

if a[i] mod 2=0 then inc(dem);

writeln('so phan tu chan trong day la: ',dem);

readln;

end.

Answer 2

1) var A: array [1..100] of integer;

2) Ta viết: A[10];

3) Không hiểu đề cho lắm

4) Chương trình:

uses crt;

var chan,n,i:integer;

a: array [1..100] of longint;

begin

clrscr;

write('Nhap n: ');readln(n);

for i:= 1 to n do begin

write('Nhap so thu ',i,': '); readln(a[i]); end;

chan:= 0;

for i:= 1 to n do

if a[i] mod 2 = 0 then chan:= chan + 1;

write('So cac phan tu chan: ',chan);

readln

end.