Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

1.Дан целочисленный массив А [n].
* Увеличьте все элементы массива на 5
* Определите сумму квадратов всех элементов массива
2. Известны данные о среднемесячной температуре за год. Определите самую высокую и самую низкую температуры. Сколько месяцев в году было теплых (температура выше 0)?
3. Имеются данные об успеваемости 12 учащихся. Определите средний уровень успеваемости.

Ответ оставил Гость

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]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.