Chuyên tin giúp mình với mình cần gấp
1. viết cú pháp câu lệnh khai báo trực tiếp biến mảng một chiều trong NNLT pascal.
2. Viết chương trình nhập vào một mảng một chiều, tối đa 10 phần tử, có kiểu số nguyên. Sau đó hãy đưa ra màn hình các số lẻ
Chuyên tin giúp mình với mình cần gấp
1. viết cú pháp câu lệnh khai báo trực tiếp biến mảng một chiều trong NNLT pascal.
2. Viết chương trình nhập vào một mảng một chiều, tối đa 10 phần tử, có kiểu số nguyên. Sau đó hãy đưa ra màn hình các số lẻ
1.Cú pháp:
var <tên biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;
2. Bài làm
program so_le;
uses crt;
var A:array[1..10] of integer;
n,i,d:byte;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
d:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if A[i] mod 2=1 then d:=d+1;
end;
if d=0 then write(‘Khong co so le trong mang’)
else
begin
write(‘Cac so le la: ‘);
for i:=1 to n do
if A[i] mod 2=1 then write(A[i],’ ‘);
end;
readln;
end.
1. Cú pháp: <tên mảng>:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;
2.
uses crt;
var i,n:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘Nhap so phan tu (toi da 10 phan tu): ‘);readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
end;
write(‘Cac so le: ‘);
for i:=1 to n do if a[i] mod 2=1 then write(a[i],’ ‘);
readln
end.