Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Замены в массивах - 1

Автор: mitz 23.04.2008 4:34

Нужно решить задачу:
Дан целочисленный массив размера N и преобразовать его, прибавив к чётным числам первый элемент. Первый и последний элементы массива не изменять.

Автор: Айра 23.04.2008 19:03

Что непонятно? что пробовал делать сам? какие мысли есть?

Автор: mitz 24.04.2008 23:17

Непонятно, как этот массив преобразовать, не трогая первого и последнего элементов. blink.gif

Автор: renesko1 24.04.2008 23:56

for i := N1elementa+ 1 to razmerMassiva-1 do
...

Автор: klem4 25.04.2008 12:05

Цитата
for i := N1elementa+ 1 to razmerMassiva-1 do


таким образом ты переберешь в 2 раза больше элементов чем нужно

Автор: Xorian 7.05.2008 10:44

 
var
  a: array [1..100] of integer;
  i, n: integer;
begin
  readln (n);
  readln (a[1]);
  i:=2;
  while i<n do
    begin
      readln (a[i]);
      if a[i] and 1 = 0 then inc (a[i], a[1]);  // подмечу: a[i] and 1 работает намного быстрее, чем a[i] mod 2
      inc (i);
    end;
  if n>1 then readln (a[n]);
end.


Автор: volvo 7.05.2008 12:19

Цитата
подмечу: a[i] and 1 работает намного быстрее, чем a[i] mod 2
Угу, особенно это заметно, когда приходится ожидать выполнения очень медленной операции ввода данных, правда?

Что называется "Лучше день потерять, потом за 5 минут долететь" (С)

Автор: mitz 21.05.2008 21:51

Спасибо за помощь! cool.gif