câu 1: nhập vào mảng N số nguyên :
a) in ra màn hình các số chẵn có trong màng
b) tính tổng các số lẻ trong mảng
câu 2: viết phương trình nhập vào biến mảng N số nguyên , với N được nhập từ bàn phím.
in ra dãy số vừa nhập
in ra số lớn nhất của dãy số
tính và in ra tổng các số các dãy số
câu 3: viết chương trình nhập vào biến mảng điểm môn tin học và in ra màn hình cho n học sinh .Với n và điểm môn học nhập từ bàn phím
mọi người giúp mình với ạ
câu 1:
program ct;
uses crt;
var i,n,s:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
for i:=1 to n do
if A[i] mod 2=0 then writeln(‘cac so chan la:’,A[i]);
s:=0;
for i:=1 to n do
if A[i] mod 2=1 then s:=s+A[i];
writeln(‘tong cac so le la:’,s);
readln
end.
câu 2:
program ct;
uses crt;
var i,n,Max,s:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
writeln(‘day so vua nhap la:’);
for i:=1 to n do
write(A[i],’ ‘);
Max:=A[1];
for i:=2 to n do
if Max<A[i] then Max:=A[i];
writeln(‘gia tri lon nhat la’,Max);
s:=0;
for i:=1 to n do s:=s+A[i];
writeln(‘tong la:’,s);
readln
end.
câu 3:
program ct;
uses crt;
var i,n:integer;
A:array[1..100] of integer;
begin
clrscr;
write(‘nhap so hoc sinh n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap diem A[‘,i,’]:=’);readln(A[i]);
end;
readln
end.
Bài `1`
Program Hotboy;
Uses crt;
Var i,n:integer;
A:array[1..100] of integer;
Begin
clrscr;
Write(‘nhap n tu ban phim ‘);
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
write(‘cac so chan la:’,A[i])
Else
S:=S+A[i];
Write(‘Tong la’,S);
Readln
End.
Bài `2`
Program Hotboy ;
Uses crt;
Var i,n,Max,Min:integer;
S:longint;
A:array[1..100] of integer;
Begin
Clrscr;
S:=0;
Write(‘nhap n tu ban phim’);
Readln(n);
For i:=1 to n do
Begin
Write(‘A[‘,i,’]’);
Readln(A[i]);
End;
Max:=A[1]; Min:=A[1];
For i:=2 to n do
Begin
if Max<A[i] then Max:=A[i];
if Min>A[i] then Min:=A[i];
end;
Write(‘so nho nhat la’,Min);
Write(‘so lon nhat la’,Max);
For i:=1 to n do
S:=S+A[i];
Write(‘tong la’,S);
Readln
End.
Bài `3`
Program Hotboy ;
Uses crt;
Var a:array[1..50] of real;
n,i : integer;
Begin
Clrscr ;
Write(‘nhap so hoc sinh’);
Readln(n);
For i:=1 to n do
Begin
Write(‘nhap diem hs thu’,i);
Readln(A[i]);
End;
Write(‘diem’,A[i]);
Readln
End.