Пожалуйста помогите с решением!!!!1.Написать программу, которая запрашивает число с клавиатуры и сообщает его квадрат, затем спр
<span>Пожалуйста помогите с решением!!!! 1.Написать программу, которая запрашивает число с клавиатуры и сообщает его квадрат, затем спрашивает пользователя «Нужно продолжить работу?», и пользователь отвечаетда/нет. Программа заканчивает свою работу, если пользователь напечатал слово «нет» на очередной вопрос программы, иначе считает и выдаёт ответ дальше. </span>2. Дан массив из 10-ти чётных натуральных чисел – от 2 до 20. А) Найдите сумму элементов массива.Б) Найдите минимальный элемент массива. 3. Дан массив из 15 подряд идущих натуральных чисел, начиная с 50.А) Найдите произведение элементов массива.<span>Б) Найдите максимальный элемент массива.</span>
Второе var A: array [1..10] of integer; I,S: integer; min:=a[1]; beginfor I:=1 to 10 do begin a[i]:=random(10); S:=S+A[I]; write(a[i],' '); end; for i:=2 to 10 do begin if min>a[i] then min:=a[i]; end; writeln; writeln ('сумма=',S); writeln ('минимальное=',min); <span>end.</span>
Var i,s,k:integer; begin i:=11; s:=0; k:=0; repeat s:=s+i; i:=i+1; k:=k+1; until i>20; write ('Cреднее арифметическое чисел ОТ 11 ДО 20 равно: ', s/k) end.