Нужна помощь!! 1. Заполнить массив из 13 целых элементов случайными числами из диапазона...

Question

Нужна помощь!! 1. Заполнить массив из 13 целых элементов случайными числами из диапазона от 5 до 15. Обеспечить вывод исходного массива на экран. Подсчитать произведение четных элементов массива. 2. Дан массив из 7 вещественных элементов. Обеспечить заполнение массива с клавиатуры. Преобразовать массив: всем положительным элементам присвоить значение 100. Обеспечить вывод получившегося массива на экран. 3. Дан массив из 10 вещественных элементов. Обеспечить заполнение массива с клавиатуры. Подсчитать сумму отрицательных элементов массива, стоящих на четных местах.

Answer 1

2
var a:array [1..7] of real ;
i:integer;
begin
write ('заполни массив');
for i:=1 to 7 do begin
readln(a[i]);
if a[i]>0 then a[i]:=100;
end;
writeln ('выведи новый массив');
for i:=1 to 7  do
writeln ( a[i]);
end.

3 
var a:array [1..10] of real;
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do begin
readln(a[i]);
if  i mod 2=0 then s:=s+a[i];
end;
write ('сумма чисел=' s);
end.

---

Comments

Первая задача

---

var a: array [1..13] of integer; i,p: integer;

---

begin

---

p:=1;

---

randomize; write (' формируем массив');

---

for i:=1 to 13 do begin

---

a[i]:= 5+random (10);

---

if a[i] mod 2=0 then p:=p*a[i]; end; write ('p='p); end.