Viết chương trình nhập vào 1 mảng M gồm N phần tử ( N nhập từ bàn phím)
Hiển thị các phần tử của mảng M
Hiển thị các phần tử của mảng M với mỗi dòng 10 số
Tính và hiển thị tổng các số lẻ trong mảng M
Viết chương trình nhập vào 1 mảng M gồm N phần tử ( N nhập từ bàn phím) Hiển thị các phần tử của mảng M Hiển thị các phần tử của mảng M với mỗi dòng
By Abigail
uses crt;
var m:array[1..1000000] of longint;
n,i,s,d:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap gia tri phan tu thu ‘,i,’: ‘); readln(m[i]);
end;
write(‘- Cac phan tu cua mang: ‘);
for i:=1 to n do write(m[i],’ ‘); writeln;
write(‘- 10 phan tu tren mot dong: ‘);
for i:=1 to n do
begin
if d mod 10=0 then writeln;
write(m[i],’ ‘);
inc(d);
end;
writeln;
for i:=1 to n do if i mod 2=1 then inc(s,m[i]);
writeln(‘- Tong cac so le: ‘,s);
readln;
end.
program mangm;
uses crt;
var M:array[1..10000] of integer;
n,i,d:integer;
t:longint;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
writeln(‘Nhap tung phan tu cua day: ‘);
for i:=1 to n do
begin
write(‘M[‘,i,’]: ‘); readln(M[i]);
end;
write(‘Cac phan tu cua day la: ‘);
{in cac phan tu cung 1 hang}
for i:=1 to n do
write(M[i],’ ‘);
writeln;
d:=0;
write(‘In cac 10 phan tu trong 1 hang: ‘);
for i:=1 to n do
begin
if d mod 10=0 then writeln;
write(M[i],’ ‘);
inc(d);
end;
writeln;
t:=0;
for i:=1 to n do
if M[i] mod 2=1 then t:=t+M[i];
write(‘Tong cac so le cua day la: ‘,t);
readln
end.