Составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 - Turbo Pascal

  1. составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем найти произведение элементов с нечетными значениями и количество элементов с четными значениями


textual

Код к задаче: «Составить программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10 - Turbo Pascal»

uses crt;
const n=10 ;
var a:array[1..n] of integer;
i:integer;
BEGIN
clrscr;
 for i:=1 to n do
  a[i]:=random(10);
 
   for i:=1 to n do
    write(a[i]:4);
 
    writeln;
 
    for i:=1 to n do
     if i mod 2=0 then
      a[i]:=-a[i];
 
      for i:=1 to n do
       write(a[i]:4) ;
readkey;
END.

СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.200 из 5



Похожие ответы
  1. 1.Составить программу вычисления суммы квадратов чётных чисел из промежутка [a,b].

  1. Используя подсистему прерываний написать программу, которая выводит на экран информацию о параметрах НЖМД. $ 13 - дисковые службы Перечень функций (номер функции при вызове прерывания должен содержаться в регистре АН): 0 - сброс дисковой системы; 1 - определение состояния диска; 2 - чтение секторов диска; 3 - запись секторов диска; 5 - форматирование дорожки; 8 - определение текущих параметров диска; 10 - проверка готовности диска; При задании входных параметров обычно используется следующая схема: АН = номер функции; AL = количество секторов (1-128) СН - количество цилиндров (0-1023) CL = номер сектора (1-17) DH = номер головки (0-15) DL = номер дисковода (0 = А :, 1 = 2-й флоппи; $ 80 = жесткий диск 0, $ 81 = жесткий диск 1). возвращает: CF = 0 в случае успеха, = 1 в случае ошибки.

  1. Cоставить программу табулирования функции y=f(x) на отрезке [a, b] с шагом h=(b-a)/m где m – заданное число. Оператор цикла While. Функция F(x)=xsin(x); a=0 b=3pi m=10

  1. Помогите пожалуйста разработать алгоритм и составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью z>0, т.е. вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше z: | ак |

  1. Помогите пожалуйста составить программу на языке Turbo Pascal 7.0 вычисления значения интеграла на интервале [a, b] для функции, заданной графически. Значение интеграла вычислить приближённо по итерационной формуле левых прямоугольников: где h=(b-a)/n - величина шага между двумя соседними точками разбиения интервала интегрирования; fi = f(xi) - значение функции в точке xi = a+h(i-1); i = 1, 2, ..., n. Вычисления закончить при выполнении условия |In-I2n| < z, где z>0 - достаточно малое значение, задаваемое пользователем (точность вычислений). Здесь In, I2n - значения интеграла, вычисленные по (1) при количестве интервалов разбиения n и 2n соответственно. Функция:

  1. помогите с задачей! Составить процедуру для нахождения индексов максимального элемента квадратной матрицы. Применить данную процедуру для двух заданных матриц C(n,n) и P(m,m).

  1. Составить таблицу корней квадратных для чисел от 10 до 50 с шагом 5.Буду очень благодарен.

  1. Составить программу с использованием циклических конструкций While… do… и Repeat… Until… . Составить программу вычисления переменной X от х1 до х2 и Y от y1 до y2 используя вложенную циклическую структуру, где X – переменная внешнего цикла, Y – переменная внешнего цикла. Организовать вывод таблицы значений. заранее безмерное спасибо!!!!!!!!

  1. Помогите написать программу, которая вычисляет среднее арифметическое ненулевых элементов введенного с клавиатуры массива целых чисел, только чтоб в одной строке... Рекамендуемый вид экрана: Введите элементы массива (10 целых чисел) в одной строке и нажмите . -> 23 0 45 -5 12 0 -2 30 0 64 Сумма элементов массива: 184 Количество ненулевых элементов: 7 Среднее арифметическое ненулевых элементов: 23.86

  1. Привет! Помогите задать значение для then ,то есть я хочу когда пишешь (-) оно отнимало если (+) соответственно прибавляло, вот что у меня есть