Нужна 1. заполнить массив из 13 целых элементов - вопрос №7545654113 от Lopsiwk 12.12.2020 22:30

Question

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

Lopsiwk · Answer

2var a:array [1..7] of real ;i:integer;beginwrite ( заполни массив );for i:=1 to 7 do beginreadln(a[i]);if a[i] 0 then a[i]:=100;end;writeln ( выведи новый массив );for i:=1 to 7  dowriteln ( a[i]);end.3 var a:array [1..10] of real;i:integer;s:real;begins:=0;for i:=1 to 10 do beginreadln(a[i]);if  i mod 2=0 then s:=s+a[i];end;write ( сумма чисел= s);end....