Question

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

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

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

Answer 1

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