Пожалуйста помогите с решением!!!!1.Написать программу, которая запрашивает число с...

Question

Пожалуйста помогите с решением!!!!
1.Написать программу, которая запрашивает число с клавиатуры и сообщает его квадрат, затем спрашивает пользователя «Нужно продолжить работу?», и пользователь отвечаетда/нет. Программа заканчивает свою работу, если пользователь напечатал слово «нет» на очередной вопрос программы, иначе считает и выдаёт ответ дальше.
2. Дан массив из 10-ти чётных натуральных чисел – от 2 до 20. А) Найдите сумму элементов массива.Б) Найдите минимальный элемент массива.
3. Дан массив из 15 подряд идущих натуральных чисел, начиная с 50.А) Найдите произведение элементов массива.Б) Найдите максимальный элемент массива.

Answer 1

Второе
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);
end.

Comments

что за кумир?

---

я не знаю что это за программа

---

или я недопонимаю что то?! это решение нужно переслать учителю, но как? в WORDe&

---

у тебя email учителя есть?

---

каким образом получилось это решение?

---

да адрес есть

---

зайди к себе на ящик и отправь письмо, туда скопируй то, что я написал

---

спасибо, я так и сделаю. А остальные задания не получаются?

---

5 баллов за 3 задачи это очень мало, создавай еще вопросы с этими задачами - чем смогу помогу