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.