Заполнить массив из 15 элементов случайным образом вещественными значениями, лежащими в диапазоне от 22 до 23. найти произведение всех элементов массива. увеличить все элементы на число b.

293

329

Посмотреть ответы 2

Ответы на вопрос:

настя20034122003

Информатика

4,4(3 оценок)

//pascal abc.net v3.1 сборка 1219 const n=15; var ar: array[1..n] of integer; pro,i,k: uint64; begin randomize; pro: =1; writeln('first array: '); for i: =1 to n do begin ar[i]: =random(22,23); //серьёно? write(ar[i]: 4); pro: =pro*ar[i]; end; writeln; writeln('pro=',pro); write('enter value: '); readln(k); writeln('final array: '); for i: =1 to n do begin ar[i]: =ar[i]+k; write(ar[i]: 6); end; end. пример работы программы: first array: 23 23 22 22 22 22 23 23 23 22 23 22 22 23 23 pro=10868183115618730368 enter value: 3 final array: 26 26 25 25 25 25 26 26 26 25 26 25 25 26 26