1 Ken's Profile

Tạo file chứa n số nguyên INPUT.DAT. Chọn trong các số này những số thỏa mãn điều kiện là tổng của số đứng trước với số đứng sau nó, lưu vào file OUTPUT.DAT theo thứ tự tăng dần

Câu 1.D

Câu 2.A

Câu 3.D

program solonnhat;
uses crt;
var a:array[1..100] of longint;
    i,n,max:longint;
begin
  clrscr;
  write('N= ');readln(n);
  for i:=1 to n do
   begin
   write('A[',i,']= '); readln(a[i]);
   end;
  max:=a[1];
  for i:=1 to n do
   if a[i]>max then max:=a[i];
   writeln('So lon nhat la ',max);
readln
end.

Do điều kiện bị viết sai hoặc điều kiện luôn thỏa mãn

Em hãy cho biết nguyên nhân nào dẫn đến lỗi lập trình khiến chương trình của em sẽ bị lặp vô hạn lần và đưa ra cách khắc phục?

program tinhtong;
uses crt;
var A:array[1..100] of integer;
    n, i, S:integer;
begin
 clrscr;
 write('Nhap so phan tu:');readln(n);
 for i:=1 to n do
 begin
 write('A[',i,']=');readln(A[i]);
 end;
 S:=0;
 for i:=1 to n do S:=S+A[i];
 writeln('Tong cac phan tu trong mang A la:',S);
 end.

program sapxepgiamdan;                                                 
uses crt;
var A:array[1..100] of integer;
    n, i, j, t:integer;
begin
 clrscr;
 write('Nhap so phan tu:');readln(n);
 for i:=1 to n do
 begin
 write('A[',i,']=');readln(A[i]);
 end;
 For i:=1 to n-1 do
 For j:=i+1 to n do
 If A[i]<A[j] then
  Begin
   t:=A[i];
   A[i]:=A[j];
   A[j]:=t;
  End;
Writeln(' Day so sau khi sap xep giam dan la:');
for i:=1 to n do
if (A[i] <=20) then write(A[i]:4);
Readln
end.

program tongle;
uses crt;
var A:array[1..10] of integer;
    i, n, S:integer;
begin
clrscr;
writeln('Nhap so luong phan tu:'); readln(n);
 for i:=1 to n do
  begin
    write('A[',i,']='); readln(A[i]);
  end;
S:=0;
writeln('Cac so le trong day la:');
for i:=1 to n do
  if (A[i] mod 2=1) then
    begin
      write(A[i]:6);
      S:=S+A[i];
     end;
  writeln;
  writeln('Tong cac so le la:',S);
  readln
  end.

C