Срочно нужна помощь : надо решить задачи по информатике.(язык - Раscal abc) 1. Дан ряд...

Question

Срочно нужна помощь : надо решить задачи по информатике.(язык - Раscal abc)
1. Дан ряд чисел от 1 до 100, найти корень квадратный из суммы всех четных чисел.
2.Дан массив, найти произведение квадратов всех элементов массива .
3.Дан массив, найти сумму элементов стоящих на нечетных местах.

Заранее благодарю

Comments

а сколько элементов в массиве должно быть?

---

а массивы нужно заполнять случайным образом?

---

массив 1-100.

---

их ведь можно без массива решить!

---

как

---

запиши как массив, а там уже мои проблемы)

---

ну, ок, напишу с массивами, правда в них смысла нет.

---

ок, спасиб

---

легче без массива

---

понятное дело, что без массива проще, ибо разницы нет с чем будет гоняться for с массивом или без.

Answer 1

//задача 1program _sqrt;var ar:array[1..100] of integer;i:integer;Res:real;beginfor i:=1 to 100 do ar[i]:=i;for i:=1 to 100 do if ar[i] mod 2=0 then res:=res+ar[i];res:=sqrt(res);write(res);end.
//задача 2. 100 элементов слишком много для произведенияprogram _sqrt;var ar:array[1..10] of integer;i:integer;res:int64;beginres:=1;for i:=1 to 10 dobeginar[i]:=i;res:=res*sqr(ar[i]);end;write(res);end.
//задача 3program _sqrt;var ar:array[1..100] of integer;i:integer;res:int64;beginfor i:=1 to 100 dobeginar[i]:=i;if ar[i] mod 2=1 then res:=res+ar[i];end;write(res);end.

Comments

благодарю