Из элементов массива P сформировать массив M

@Diplomat · Регистрация: 11.06.2011

Author24 — интернет-сервис помощи студентам

Из элементов массива P сформировать массив M той же размерности по правилу: если номер четный, то M[i]=i*p[i];если нечетный, то M[i]=-P[i].

Дан массив целых чисел (n=12), заполненный случайным образом числами из промежутка [-10,60].
Вставить число k перед и после всех элементов, заканчивающих на данную цифру (k вводить с клавиатуры).

На TP или Pacal ABC

Добавлено через 13 минут

Pascal

begin
uses crt;
var
i:integer;
for i:=1 to n do
 begin
 writeln ('заполняем ячейку массива номер ...'p[i]);
 readln (a[i]);
  if i mod 2 = 0 then m[i]:=i*p[i] else M[i]:=P[i]*-1;
 end;
  for i:=1 to n do
 begin
 writeln ('элемент нового масива номер...',m[i]);
 end;
 readln;
 end.

не работает((((

@Artorios · 14.06.2011, 07:39

Я бы так сделал:

Pascal

Program prog;
Uses crt;
Type A=array[1..100]of integer;
Var i,n:integer;
    p,m:A;
Begin
repeat
  Write('Введите длину массива ');
  readLn(n);
until n > 0;
randomize;
for i:=1 to n do
begin
  P[i]:=random(50);
  Write(P[i]:3);
end;
WriteLn;
for i:=1 to n do
begin
  if i mod 2 = 0 then
    M[i]:=i*P[i] else
    M[i]:=-P[i];
  Write(M[i]:3);
end;
readLn;
end.

P.S Я бы посоветовал бы тебе почитать http://pascal.guti.ru/program.html

@Diplomat · 14.06.2011, 07:56 **[ТС]**

Pascal

uses crt;
var
 i, n:integer;
 p, m: array[1..1000] of integer;
begin
// n:=5;
 write ('Введите количество элементов массива p ');
 readln (n);
 
 writeln ('заполняем ячейки массива p[', n,']');
 for i:=1 to n do
 begin
 write ('p[',i,'] = ');
 readln (p[i]);
 if p[i] mod 2 = 0 then m[i]:=i*p[i] else m[i]:=p[i]*-1;
 end;
 readln;
 writeln ('элементы нового масива m[',n,']');
 for i:=1 to n do
 begin
 writeln ('m[',i,'] = ',m[i]);
 end;
 readln;
 end.

@Artorios · 14.06.2011, 08:01

Тоже самое.Только зачем

Pascal

for i:=1 to n do
begin
writeln ('m[',i,'] = ',m[i]);
end;

операторные скобки?Они сдесь совсем не нужны)))

@Diplomat · 14.06.2011, 08:05 **[ТС]**

а ты попробовал включить, работает, только вроде ошибку выдавала... у мя через несколько часов зачет, боюсь не успею с другой работой... Можешь посмотреть? И большое спасибо за работу.

@Artorios · 14.06.2011, 08:47

Artorios9@mail.ru Пиши в маилагент

Добавлено через 35 минут
Дан массив целых чисел (n=12), заполненный случайным образом числами
из промежутка [-10,60].Вставить число k перед и после всех элементов,
заканчивающих на данную цифру (k вводить с клавиатуры).

Pascal

Program aaa;
Uses crt;
Var
  mas: array[1..12]of integer;
  k,i,x,er:integer;
  s1,s2,s3:string;
Begin
 Write('Введите k ');
 readLn(k);
 randomize;
 for i:=1 to 12 do
 begin
   Mas[i]:=random(71)-11;
   Write(Mas[i]:3,'  ');
 end;
 for i:=1 to 12 do
 if ((Mas[i] mod 10) = k) or(Mas[i]=k) then
 begin
   s3:='';s1:='';s2:='';  //обнулю строку на всякий случай
   str(Mas[i],s1);
   str(k,s2);
   s3:=s2+s1+s2;
   Val(s3,X,er);
   Mas[i]:=x;
 end;
 WriteLn;
 for i:=1 to 12 do
   Write(Mas[i]:3,'  ');
readLn;
end.

@Diplomat 0 / 0 / 0 Регистрация: 11.06.2011 Сообщений: 33
	14.06.2011, 08:05 [ТС]	5
	а ты попробовал включить, работает, только вроде ошибку выдавала... у мя через несколько часов зачет, боюсь не успею с другой работой... Можешь посмотреть? И большое спасибо за работу. 0

	14.06.2011, 08:47