1.Дан целочисленный массив А [n].
* Увеличьте все элементы массива на 5
* Определите сумму квадратов всех элементов массива

2. Известны данные о среднемесячной температуре за год. Определите самую высокую и самую низкую температуры. Сколько месяцев в году было теплых (температура выше 0)?

3. Имеются данные об успеваемости 12 учащихся. Определите средний уровень успеваемости.

1 задание vara:array[1..10000000] of integer;sk:real;i,n:integer;beginWrite('Размер массива - ');readln(n);Write('Заполните массив - ');for i:=1 to n dobeginread(a[i]);end;for i:=1 to n dobeginwrite(a[i]+5,' ');end;writeln();for i:=1 to n dosk:=sk+sqrt(a[i]);write('Сумма квадратов ',sk);end.2 заданиеvara:array[1..12] of real;max,min:real;i:integer;beginwrite('Введите сред. t за каждый месяц - ');for i:=1 to 12 dobeginread(a[i]);end;max:=a[1]; for i:=1 to 12 do beginif a[i]>max then max:=a[i];end;min:=a[1]; for i:=1 to 12 do beginif a[i]<min then min:=a[i];end;writeln('Максимальная t за год - ',max,' градусов. Минимальная t за год - ',min,' градусов.');end.3 заданиеvara:array[1..12] of real;sum:real;i:integer;beginwrite('Введите баллы учеников - ');for i:=1 to 12 dobeginread(a[i]);end;for i:=1 to 12 dobeginsum:=sum+a[i];end;sum:=sum/12;writeln('Средний уровень успеваемости - ',sum);end.