задачи на векторы

[nadya88]

1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Посчитать произведение элементов, которые оканчиваются на цифру 1. Результаты вывести на экран.
2. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Составить новый вектор, записав в него для каждого элемента исходного вектора количество его цифр. Результаты вывести на экран.
3. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Удалить из вектора все элементы, которые являются совершенными числами. Результаты вывести на экран.
4. С клавиатуры вводятся размеры (<=100x100) матрицы и её (целые) элементы. Составить вектор номеров строк, в которых есть хотя бы один элемент, который делит 120. Результаты вывести на экран.

[TinMan]

Сообщение от nadya88

1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Посчитать произведение элементов, которые оканчиваются на цифру 1. Результаты вывести на экран.
2. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Составить новый вектор, записав в него для каждого элемента исходного вектора количество его цифр. Результаты вывести на экран.
3. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Удалить из вектора все элементы, которые являются совершенными числами. Результаты вывести на экран.
4. С клавиатуры вводятся размеры (<=100x100) матрицы и её (целые) элементы. Составить вектор номеров строк, в которых есть хотя бы один элемент, который делит 120. Результаты вывести на экран.

Надюш, вот тебе суть каждой задачи, разбирайся. Если будут вопросы - задавай. А ввод/вывод, я надеюсь, ты сделаешь сама. Успехов тебе.
1.

  p:= 1;
  for i:=1 to n do
    if abs(a[i] mod 10)=1 then p:= p*a[i];

2.

  for i:=1 to n do
    if a[i]=0 then b[i]:= 1 else b[i]:= round(ln(abs(a[i])+0.5)/ln(10))+1;

3.

  j:=0;
  for i:=1 to n do
    if (i=6)or(i=28)or(i=496)or(i=8128) then dec(n) else begin
      inc(j);
      if i<>j then a[j]:= a[i]
    end;

4.

  k:= 0;
  for i:=1 to m do begin
    j:= 1;
    while (j<=n) and (120 mod a[i,j]=0) do inc(j);
    if j>n then begin
      inc(k);
      b[k]:= i
    end
  end;

[nadya88]

TinMan спасибо тебе, но я правда бивень в этих делах. Сможешь написать цельные ответы, если не сложно? Очень благодарна буду.

[TinMan]

Пожалуйста.
Нет.

[nadya88]

Жаль но всёравно спасибо)))

[TinMan]

Хорошо, Надь, я напишу тебе первую. Остальные сделай аналогично.

const
  m= 100;

var
  a: array[1..m] of integer;
  i,n: integer;
  p: longint;

begin
  write('enter total number of elements: ');
  readln(n);
  for i:=1 to n do begin
    write('a[',i,'] = ');
    readln(a[i])
  end;
  p:= 1;
  for i:=1 to n do
    if abs(a[i] mod 10)=1 then p:= p*a[i];
  writeln('The product of 1-ending elements is equal to ',p);
  readln
end.

Не проверял, могут быть ошибки.

[nadya88]

Спасибо тебе огромное, моей благодарности нет предела))))

[nadya88]

TinMan у остальных условия ведь разные,я не могу просто понять каким образом их делать.Я понимаю что для тебя это просто, но для меня это чтото из раздела фантастики( Может ты окажешь мне честь, если конечно время есть...и решишь)я ОЧЕНЬ ОЧЕНЬ прошу.(а кстати как тебя зовут?)

[TinMan]

Условия разные, да. Но каждая задача (хорошо, кроме последней) начинается с одного и того же предложения: "С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы". Выходит, что начало у всех одинаковое. Верно же? ))

В последней задаче нужен двойной цикл ввода: внешний по строкам, и внутренний по номеру элемента в строке (то есть номеру столбца). Но в целом все равно похоже..

Теперь вывод. Выводить везде (в номерах 2 - 4) нужно столбец. Значит, тоже нужен цикл. Он практически такой же, как цикл ввода, только нужно write вместо read - делов-то! )) И выводить нужно в номерах 2 и 4 не a, а b.

Надь, меня же совесть загрызет, что я тебе учиться не дал. Пожалуйста, сделай сама. Хоть что-то. Если ошибешься, не бойся - комп не взорвется и даже не перегорит, землетрясения в Антарктиде не случится, и твой мальчик тебя не разлюбит. Ну, может, разве что, миллиционер родится..

Сделай хоть что-то. Поверь в себя. Ты МОЖЕШЬ.

А мы поправим )).

(кстати, можешь звать меня Железный Дровосек))

[nadya88]

Железный дровосек))))это круто!!!
У меня экономический факультет,дистанционная форма.
Работа,т.е. времени нет вообще чтоб сидеть и разбираться.Ну если ты не поможешь, то конечно придётся как то самой((