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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.