làm ở ARRAY nha mọi người ( ai giúp em vote 5* )
Bài 1. Viết chương trình
– Nhập một dãy số nguyên có N phần tử.
– Xuất ra màn hình dãy số vừa nhập.
– Tính tổng các phần tử chẵn có trong dãy trên và xuất kết quả ra màn hình.
Bài 2. Viết chương trình
– Nhập một dãy số nguyên có N phần tử.
– Xuất ra màn hình dãy số vừa nhập.
– Tính tổng các phần tử âm có trong dãy trên và xuất kết quả ra màn hình.
Bài 3. Viết chương trình
– Nhập một dãy số nguyên có N phần tử
– Xuất ra màn hình dãy số vừa nhập.
– Xuất ra màn hình số lớn nhất trong dãy trên.
làm ở ARRAY nha mọi người ( ai giúp em vote 5* ) Bài 1. Viết chương trình – Nhập một dãy số nguyên có N phần tử. – Xuất ra màn hình dãy số vừa nhập. –
By Gianna
bài 1:
program oken;
uses crt;
var a: array [1..10000] of longint;
i,n,sum:longint;
begin
clrscr;
write(‘nhap so phan tu cua mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
if a[i] mod 2 = 0 then sum:=sum+a[i];
end;
writeln(‘tong cac so chan cua mang: ‘,sum);
readln;
end.
bài 2:
program oken;
uses crt;
var a: array [1..10000] of longint;
i,n,sum:longint;
begin
clrscr;
write(‘nhap so phan tu cua mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
if a[i] < 0 then sum:=sum+a[i];
end;
writeln(‘tong cac so am cua mang: ‘,sum);
readln;
end.
bài 3:
program oken;
uses crt;
var a: array [1..10000] of longint;
i,n,max:longint;
begin
clrscr;
write(‘nhap so phan tu cua mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]: ‘); readln(a[i]);
end;
for i:=1 to n do
begin
write(a[i],’ ‘);
end;
max:=a[1];
for i:=2 to n do
if max<a[i] then max:=a[i];
writeln(‘max=’,max);
readln;
end.
Bài $1$
Program Hotboy;
Uses crt;
Var A:array[1..100] of integer;
I,n,S : real;
Begin
Clrscr ;
S:=0;
Write(‘nhap so n’); readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’]’); readln(A[i]);
End;
For i:=1 to n do
If ( A[i] mod 2= 0) then
S:=S+ A[i] ;
Writeln(‘Tong chan la’,S);
Readln
End.
Bài $2$
Program Hotboy;
Uses crt;
Var A:array[1..100] of integer;
I,n,S : real;
Begin
Clrscr ;
S:=0;
Write(‘nhap so n’); readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’]’); readln(A[i]);
End;
For i:=1 to n do
If ( A[i] <0) then
S:=S+ A[i] ;
Writeln(‘Tong am la’,S);
Readln
End.
Bài $3$
Program Hotboy;
Uses crt;
Var A:array[1..100] of integer;
I,n,S : real;
Begin
Clrscr ;
S:=0;
Write(‘nhap so n’); readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’]’); readln(A[i]);
End;
A[1] := S;
For i:=2 to n do
If ( A[i] > S then
S:= A[i] ;
Writeln(‘phan tu lon nhat la’,S);
Readln
End.