1.
program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
sum:integer;
begin
writeln('Введите 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;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>naib) then naib:=a[i];
end;
writeln(' ',naib);
end.
Для получения корня между
и 
n = 1.
Задние 2nh = A div C - количество квадратов умещающихся по-вертикали
nw = B div C - количество квадратов умещающихся по-горизонтали
n = nh * nw = общее количество квадратов.
Sr = A * B - 2*C*C
Код:
using System;namespace ThisAnswerIsNotMine { class Program { private static void Eq(double a) { var x = Math.Atan(1 / (Math.Exp(a) + 1)) + Math.PI; Console.WriteLine($"Для a = {a}, x = {x}"); } private static void Squares(int A, int B, int C) { int nh = A / C; int nw = B / C; int n = nh * nw; int Sr = A * B - 2*C*C; Console.WriteLine($"Количество квадратов со стороной {C} в прямоугольнике размером {A}x{B} равно: {n}"); Console.WriteLine($"Площадь оставшегося куска {Sr}"); } private static void Main() { Eq(double.Parse(Console.ReadLine()!)); Squares(int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!), int.Parse(Console.ReadLine()!)); } }}