0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
9
5
c1
uses crt;
var a: array[1..100] of integer;
i,n: integer;
begin
clrscr;
Write('nhap n: ');
readln(n);
while n>100 do
begin
Write('nhap lai n: ');
readln(n);
end;
for i:=1 to n do
begin
write('nhap so thu ',i,': ');
readln(a[i]);
while abs(a[i])>200 do
begin
write('nhap lai so thu ',i,': ');
readln(a[i]);
end;
end;
write('mang vua nhap la: ');
for i:=1 to n do write(a[i]:3);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
BT1:
Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do Read(A[i]);
For i:=1 to n do Write(A[i],' ');
Readln
End.
BT2:
Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i,sc,s,k: longint;
Begin
Clrscr;
Write('Nhap n,k: '); Readln(n,k);
For i:=1 to n do
Begin
Read(A[i]);
If A[i] mod 2 = 0 then sc:=sc+A[i];
If A[i] mod k = 0 then s:=s+A[i];
End;
Writeln('1. ',sc);
Writeln('2. ',s);
Write('3. ');
For i:=1 to n do
If A[i] mod 2 <> 0 then Write(A[i],' ');
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
9
110
5
c2 uses crt; var a: array[1..100] of integer; i,n,tong,k,tongk: integer; begin clrscr; Write('nhap n: '); readln(n); while n>100 do begin Write('nhap lai n: '); readln(n); end; for i:=1 to n do begin write('nhap so thu ',i,': '); readln(a[i]); while abs(a[i])>200 do begin write('nhap lai so thu ',i,': '); readln(a[i]); end; end; write('mang vua nhap la: '); for i:=1 to n do write(a[i]:3); writeln; write('nhap k: '); readln(k); for i:=1 to n do begin if a[i] mod 2=0 then tong:=tong+a[i]; if a[i] mod k=0 then tongk:=tongk+a[i]; end; writeln('tong cac so chan la: ',tong); writeln('tong cac so chia het cho ',k,' la: ',tongk); write('cac so le la: '); for i:=1 to n do if a[i] mod 2=1 then write(a[i]:3); readln; end. Rút gọnc2 uses crt; var a: array[1..100] of integer; i,n,tong,k,tongk: integer; begin clrscr; Write('nhap n: '); readln(n); while n>100 do begin Write('nhap lai n: '); readln(n); end; for i:=1 to n do begin write('nhap so thu ',i,': '); ... xem thêm
0
40
0
Câu 1: var a: array [1..200] of integer;i,n:integer; begin write ('nhap n'); readln(n); for i:=1 to n do begin write ('a[',i,']='); readln (a[i]); end; writeln ('cac phan tu vua nhap la:'); for i:=1 to n do write (a[i]:5); readln; end.
0
40
0
Mình cảm ơn ạ