[marishka_k]

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

буду очень благодарна

[lmikle]

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

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

Код:

var
  I : Integer;
  A, B : Array [1..20] Of Integer;
begin
  // Заполянем массив A, выводим его и вычисляем массив B
  For I := 1 To 20 Do
    Begin
      A[i] := Round(-25 + Random()*51);
      Write(A[i]);
      If I div 2 = 0 Then B[i] := Sqr(A[i]) Else B[i] := 2*A[i];
    End;
  WriteLn;

  // Выводим массив B
  For I := 1 To 20 Do Write(B[i] + ' ');
  WriteLn;

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

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

Код:

var
  I : Integer;
  A : Array [1..20] Of Integer;
  A1, A4, S : Integer;
begin
  For I := 1 To 20 Do
    Begin
      A[i] := Round(-25 + Random()*51);
      Write(A[i]);
    End;
  WriteLn;

  A1 := A[1]; A4 := A[4]; S := 0;
  For I := 1 To 20 Do
    If (A[i] > A1) And (A[i] < A4) Then S := S+A[i];
  WriteLn('S=',S);

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

3)Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке [-25,25]. Найти сумму элементов побочной диагонали. Вывести исходный массив и полученный результат на печать.

Код:

var
  I, J : Integer;
  A : Array [1..10,1..10] Of Integer;
  S : Integer;
begin
  For I := 1 To 10 Do
     Begin
       For J := 1 To 10 Do
          Begin
            A[I,J] := Round(-25 + Random()*51);
            Write(A[I,J] + ' ');
          End;
      WriteLn;
    End;

  S := 0;
  For I := 1 To 10 Do
    S := S + A[I,10-I+1];
  WriteLn('S=',S);

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

4)Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке [-25,25]. Найти максимальный элемент каждой строки. Результат получить в виде одномерного массива. Вывести исходный массив и полученный результат на печать.

буду очень благодарна

Дальше лень думать. Тут надо 2 массива, двумерный исходный, одномерный для макс числа в строке. Обрабатывать и выводит саму матрицу можно сразу в момент генерации, как в примерах выше, потом только останется вывести результат из второго массива.