1.Дан целочисленный массив А [n]. * Увеличьте все элементы массива на 5 * Определите сумму квадратов всех элементов массива 2. Известны данные о среднемесячной температуре за год. Определите самую высокую и самую низкую темпера...
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]
ГостьВсе решения в документе. Задачи выполнены на паскале
Не нашли ответ?
Похожие вопросы