Одномерный массив - 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 и результат присваивается самому элементу. В конце программы выводится измененный массив.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.917 из 5
Похожие ответы