uses crt;
var i,s:longint; a:array[1..7]of longint;
begin
clrscr;
   for i:=1 to 7 do
      begin
         write('Nhap vao nhiet do ngay thu ',i,': ');readln(a[i]);
         s:=s+a[i];
      end;
   write('a) ');
   for i:=1 to 7 do write(a[i],' '); writeln;
   write('b) ');
   for i:=1 to 7 do if a[i] mod 2=1 then write(i,' '); writeln;
   writeln('c) ',s/7:0:2);
readln
end.

$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program nhietdo;
uses crt;
var i,s: word;
      a: array[1..7] of real;
begin
clrscr;
for i:=1 to 7 do begin
writeln('Nhap vao nhiet do ngay thu ',i,': ');readln(a[i]);
s:=s+a[i]; end;
writeln('Nhiet do cua cac ngay trong tuan lan luot la:  ');
for i:=1 to 7 do write(a[i],' '); writeln;
writeln('Nhung ngay co nhiet do la so le gom cac ngay ');
for i:=1 to 7 do if (a[i] mod 2=1) then write(i,' '); writeln;
writeln('Nhiet do trung binh cua tuan la: ',s/7:0:2);
readln
end.