1.Дан целочисленный массив А [n].* Увеличьте все элементы массива на 5*

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

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

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

Задать свой вопрос
Анатолий Карев
а массив как обязан заполняться?
2 ответа
Все решения в документе. Задачи выполнены на паскале
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]gt;max then max:=a[i];
end;
min:=a[1];
 for i:=1 to 12 do begin
if a[i]lt;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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт