Đây là đáp án hai bài nha bạn!

hình 1 cho bài 7

hình 2 cho bài 8

hình 3 cho bài 1

1

program ct;

uses crt;

var n:string;

begin

clrscr;

write('nhap n:=');readln(n);

writeln('toi ten la:',n);

readln

end.

7

program ct;

uses crt;

var i,S,n,Max: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;

  S:=0; Max:=A[1];

    for i:=1 to n do

begin

  S:=S+A[i];

  if Max<A[i] then Max:=A[i];

end;

  writeln('tong la:',S);

  writeln('gia tri lon nhat la:',Max);

readln

end.

8

program ct;

uses crt;

var i,S,n,Max,Min: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;

  S:=0; Max:=A[1]; Min:=A[1];

      for i:=1 to n do

begin

  if A[i] mod 2=0 then S:=S+A[i];

  if Max<A[i] then Max:=A[i];

  if Min>A[i] then Min:=A[i];

end;

  writeln('tong la:',S);

  writeln('gia tri lon nhat la:',Max);

  writeln('gia tri nho nhat la:',Min);

readln

end.

(câu 8 mình ko thấy rõ câu 2 nhỏ mình chỉ đọc được là xuất ra giá trị lớn nhỏ trong dãy số nên mình tìm giá trị lớn và nhỏ luôn nhe)