Одномерный массив - Turbo Pascal (29043)
Формулировка задачи:
Нужна помощь, не могу понять в чем проблема. Надо чтобы делились все значения массива, а не только последний его элемент
Решение задачи: «Одномерный массив»
textual
Листинг программы
var x: array[1..100] of real; i,n,k: integer; begin randomize; write('Напишите количество элементов в массиве '); read(n); write('Напишите число, на которое будут делиться элементы массива '); readln(k); writeln('Исходный массив'); for i:=1 to n do begin x[i]:=-10+30*random; write(x[i]:5:1); end; writeln; writeln('Измененный массив'); for i:=1 to n do begin if x[i]>0 then x[i]:=x[i]/k ; write(x[i]:5:1); end; end.
Объяснение кода листинга программы
В данном коде пользователь вводит количество элементов в массиве (n) и число, на которое будут делиться элементы массива (k). Затем выводится исходный массив. Для каждого элемента массива (от 1 до n) переменной x присваивается случайное число от -10 до 30 (включительно), затем это число выводится на экран. Затем выводится измененный массив, где для каждого элемента (от 1 до n) проверяется, положительное ли число в текущем элементе массива (x[i]). Если это так, то элемент делится на k и результат присваивается самому элементу. В конце программы выводится измененный массив.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д