Задачи на массивы.

[spankyham]

1) Дан одномерный массив размерности 20. Заполнить его случайными числами на отрезке [-25,25]. Сформировать второй массив по правилу: если индекс элемента исходного массива чётный, то элемент возвести в квадрат, если нечётный - удвоить. Вывести исходный и полученный массивы на печать.
2) Дан одномерный массив размерности 20. Заполнить его случайными числами на отрезке [-25,25]. Найти сумму элементов массива, которые больше первого, но меньше четвёртого элеметна массива. Вывести на печать исходный массив и полученныые результаты.

начало одинаковое наверно для обеих, по моему мнению (если не так, прошу исправить):

program zadanie;
uses crt;
const n=19;
type  arr=array[0..n] of integer;

procedure fill_arr(var a:arr);
var i:integer;
begin randomize;
      for i:=0 to n do a[i]:=25-random(51);
      end;

[Nazerbaev]

Вот уже немног ополучаеться над первой задачей.. правда еще не на все 100правильно работает но уже:

var
mas:array[-25..25] of real;
mas1:array[1..20] of real;
i:integer;

procedure TForm1.Button1Click(Sender: TObject);

begin randomize;

      for i:=1 to 20 do
        begin
        mas[i]:=25-random(51);
        end;
      for i:=1 to 20 do
        begin
        if i mod 2=0 then
        mas1[i]:=mas[i]*mas[i];
        end;
        begin
        if i mod 2=1 then
        mas1[1]:=mas[i]*2;
        end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin
for i:=1 to 20 do
begin
label1.Caption:=label1.caption+floattostr(mas[i])+' ';
end;

for i:=1 to 20 do
begin
label2.Caption:=label2.Caption+floattostr(mas1[i])+' ';
end;
end;
end.

*Делал на Делфи*

[__STDC__]

Не понял... вчера же решили тебе это все.. тут буквально одну строку поправить.. в каждой задаче..
1.

if (i mod 2 = 0) then b[i]:=sqr(a[i]) else b[i]:=2*a[i];

2.

if (a[i]>a[1]) and (a[i]<a[4]) then sum:=sum+a[i];

[spankyham]

program zadanie9;
uses crt;
const n=19;
type  arr=array[0..n] of integer;

procedure fill_arr(var a:arr);
var i:integer;
begin randomize;
      for i:=0 to n do a[i]:=25-random(51);
      end;
var
      a:arr; b:arr; i:integer;

begin textcolor(9);
      clrscr;
      fill_arr(a);
      if (i mod 2=0) then b[i]:=sqr(a[i])
      else b[i]:=2*a[i];
      for i:=0 to n do 
      writeln(a[i]:3);
      writeln(b[i]:3);
      readln;
end.

подскажите, что неправильно в 1ой задаче.....

[Манжосов Денис :)]

Неизвестно, что это за i такая в этой строчке
if (i mod 2=0) then b[i]:=sqr(a[i])
else b[i]:=2*a[i];

[spankyham]

__STDC__, к тебе вопрос ) я хз....
вообщем, 1ый массив у меня выводится, а вместо 2го - ноль....

[IT-man]

program zadanie9;
uses crt;
const n=19;
type  arr=array[0..n] of integer;

procedure fill_arr(var a:arr);
var i:integer;
begin randomize;
      for i:=0 to n do a[i]:=25-random(51);
      end;
var
      a:arr; b:arr; j:integer;

begin textcolor(9);
      clrscr;
      fill_arr(a);
for j:=0 to n do
      if (j mod 2=0) then b[j]:=sqr(a[j])
      else b[j]:=2*a[j];
      for j:=0 to n do
      writeln(a[j]:3);
 for j:=0 to n do
      writeln(b[j]:3);

      readln;
end.

[__STDC__]

i - целочисленная переменная, в данном случае текущий индекс элемента массива.. не понимаю в чем проблемы... по-моему все очевидно... если хоть немного подумать... задачи уже были решены ранее, исправить надо было по одной строке, как я уже говорил.. по-моему, чтобы заменить одну строку не нужно знать ни Pascal, ни что такое i....

[IT-man]

проблема в отсутствии строчек выделенных красным

[__STDC__]

Сообщение от IT-man

проблема в отсутствии строчек выделенных красным

Да я не про то... я не про твой код, а про элементарную лень людей... по-моему код полностью прозрачен, то что я писал в прошлой теме, и то что ты там же писал... Меня поражает, что после этого создается практически идентичная тема и что опять какие-то проблемы возникают с тем, с чем уже разобрались..
Естественно, я не вижу необходимости писать весь код, пишу фрагменты... Зачем попусту место занимать... А что такое i по-моему очевидно, глядя на сам код..