Решить через паскаль через массивы)…

1.program asd; uses crt; var a: array[1… 10] of integer; i: integer; sum: integer; beginwriteln ('Введите 10 цифр по очереди'); for i: =1 to 10 do begin readln (a[i]); if (a[i]>7) then begin a[i]: =7; sum: =sum+1; end; end; writeln (',sum); end. 2. Смысл задания? 10/2=5 или индексами ты имела ввиду значениями? 3.program asd; uses crt; var a: array[1… 10] of integer; i: integer; naib: integer; beginwriteln ('Введите 10 цифр по очереди'); for i: =1 to 10 do begin readln (a[i]); if (a[i]>naib) then naib: =a[i]; end; writeln (',naib); end.