Из элементов массива Р сформировать массив М той же размерности по правилу

@Андреич Серёг · Регистрация: 18.11.2012

Приветствую форумчане.
Прошу вас помочь с заданием.
За ранее огромное спасибо от всей группы.
Задача:

1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Из элементов массива Р сформировать массив М той же размерности по правилу: если номер четный, то Pi=I*Mi, если нечетный, то P_i=-I/M_i .

@CodeR · 19.11.2012, 09:33

Pascal

Const n=20;
Var P,M:array[1..n] of real;
    i:byte;
Begin
    For i:=1 to n do
    Begin
      write('P[',i,'] = ');
      readln(P[i]);
      if i mod 2 = 0 then M[i]:=i*P[i]
       else if P[i]<>0 then M[i]:=-i/P[i]
        else M[i]:=0;
    End; 
    writeln('Массив M');
    For i:=1 to n do
     write(M[i]:6:2);
End.

@Андреич Серёг 1 / 1 / 0 Регистрация: 18.11.2012 Сообщений: 32
		1
	Из элементов массива Р сформировать массив М той же размерности по правилу 19.11.2012, 06:33. Показов 6073. Ответов 1 Метки нет (Все метки) Приветствую форумчане. Прошу вас помочь с заданием. За ранее огромное спасибо от всей группы. Задача: 1. Дан массив целых чисел из 20 элементов. Заполнить его с клавиатуры. Из элементов массива Р сформировать массив М той же размерности по правилу: если номер четный, то Pi=I*Mi, если нечетный, то P_i=-I/M_i . 0

Опции темы

Из элементов массива Р сформировать массив М той же размерности по правилу

Решение