Решить 1)дан массив из 20 элементов заполненный случайными целыми числами из интервала[-10; 10].выведите этот массив в строку и найдите наибольший элемент среди отрицательных элементов массива. 2)заполнить массив из 15 элементов заполненный случайными целыми числами из интервала от-10 до 10 вывести в строчку , и повторно вывести в строчку заменив элементы не больше 3 их кубами pascalabc.net

1)
const n=20; 
var
  a:array[1..n] of integer;
  i,j,max:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do begin
  a[i]:=Random(21)-10;
  Write(a[i]:4)
end;
Writeln;
max:=-10;
for i:=1 to n do
 if (a[i]<0)and(a[i]>max) then max:=a[i];
Writeln('max = ',max);
end.

Пример:
Исходный массив:
  10  -8  10  -9   6   7   6   0  -4  10  -3   9   2  10   5   1   8  10   5   4
max = -3

2)
const n=15; 
var
  a:array[1..n] of integer;
  i,j:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do begin
  a[i]:=Random(21)-10;
  Write(a[i]:6)
end;
Writeln;
for i:=1 to n do
 if a[i]<=3 then a[i]:=a[i]*a[i]*a[i];
Writeln('Измененный массив:');
for i:=1 to n do Write(a[i]:6);
Writeln;
end.

Пример:
Исходный массив:
    -1    -4     9    -2    10    -9     6    -6     5    -1    -2     3     1    -8    10
Измененный массив:
    -1   -64     9    -8    10  -729     6  -216     5    -1    -8    27     1  -512    10

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
  var a:=ArrRandom(20,-10,10); a.Println;
  Writeln('Наибольший отрицательный элемент ',
    a.Where(x->x<0).Max)
end.

Тестовое решение:
8 -10 -6 -10 6 10 0 4 -6 -7 10 -2 -7 -10 3 -5 0 -9 3 3
Наибольший отрицательный элемент -2

// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
  var a:=ArrRandom(15,-10,10); a.Println;
  a.Select(x->x<=3?x*x*x:x).Println
end.

Тестовое решение:
7 -3 5 -5 4 7 2 1 -10 9 -2 -7 4 0 5
7 -27 5 -125 4 7 8 1 -1000 9 -8 -343 4 0 5

Вы извините, что здесь пишу, в графе для ответов. Хочу Вам просто и код, и скриншот прикрепить. Попробуйте этот код (комментарии условны, только для понимания). Три числа введите через пробел, в соответствии с логикой конечно же (смотрите комментарии для лучшего понимания):

# k - максимальное количество котлет на сковороде

# m - прожарка котлеты с одной стороны

# n - входное количество котлет

k,m,n = map(int, input().split())

time_am = 0

if (n <= k):

   time_am += 2*m

elif (n > k):

   while (n > k):

       time_am += 2*m

       n -= k

       if (n <= k):

           time_am += 2*m

           break

print(time_am)

1. отметьте все правильно записанные формулы. =2*a3*b2   =a1+сумм(b1: c3)   2. отметьте все правильные адреса ячеек и диапазонов электронной таблицы.   a5: b8 c7: b16 3. сколько ячеек входит в диапазон a7: b12? ответ:   12  4. в электронной таблице выделены 20 ячеек, расположенных в столбце h, начиная со строки 9. запишите адрес выделенного диапазона.   ответ: h9: h28 5. в электронной таблице выделен диапазон из 8 ячеек, расположенный в столбцах a и b. правый нижний угол диапазона находится в ячейке b8. запишите адрес диапазона.   ответ: a5: b8 6. в электронной таблице выделен диапазон из 9 ячеек, расположенный в столбцах c, d и e. правый нижний угол диапазона находится в ячейке e8. запишите адрес диапазона. ответ:   c6: e8 7. какую формулу нужно записать в ячейку b5, чтобы вычислить значение x по формуле, на рисунке? ответ:   8. запишите адрес выделенного диапазона. ответ:   9. запишите адрес выделенного диапазона. ответ:     10. замените формулу, используя один вызов функции сумм:=a3+a4+a5+b3+b4+b5 ответ:   =сумм(a3: b5) 11. замените формулу, используя два вызова функции сумм:=a3+a4+a5+b7+b8+b9+c7+c8+c9 ответ:   =сумм(a3: c9)