Полине

Номер 1
var
  A :array[1..6] of real;
  i:integer;

Begin
  A[1] := 5.1;
  A[2] := 3.0;
  A[3] := 8.2;
  A[4] := 1.9;
  A[5] := 4.3;
  A[6] := 7.5;
  write('Исходный массив: ');
  for i := 1 to 6 do begin
    write(A[i], '  ');
  end;

  writeln();

  write('Полученный массив: ');
  for i := 1 to 6 do begin
    A[i] :=  A[i] + 1;
    write(A[i], '  ');
  end;
  writeln();
 End.



Номер 2
var
  A :array[1..6] of real;
  i:integer;

Begin
  A[1] := 5.1;
  A[2] := 3.0;
  A[3] := 8.2;
  A[4] := 1.9;
  A[5] := 4.3;
  A[6] := 7.5;
  write('Исходный массив: ');
  for i := 1 to 6 do begin
    write(A[i], '  ');
  end;

  writeln();

  write('Полученный массив: ');
  for i := 1 to 6 do begin
    A[i] :=  A[i] * 2;
    write(A[i], '  ');
  end;
  writeln();
 End.



Номер 3
var
  A :array[1..6] of real;
  i:integer;

Begin
  A[1] := 5.1;
  A[2] := 3.0;
  A[3] := 8.2;
  A[4] := 1.9;
  A[5] := 4.3;
  A[6] := 7.5;
  write('Исходный массив: ');
  for i := 1 to 6 do begin
    write(A[i], '  ');
  end;

  writeln();

  write('Полученный массив: ');
  for i := 1 to 6 do begin
    A[i] :=  A[i] * A[i];
    write(A[i], '  ');
  end;
  writeln();
 End.



Номер 4
var
  A :array[1..6] of real;
  i:integer;

Begin
  A[1] := 5.1;
  A[2] := 3.0;
  A[3] := 8.2;
  A[4] := 1.9;
  A[5] := 4.3;
  A[6] := 7.5;
  write('Исходный массив: ');
  for i := 1 to 6 do begin
    write(A[i], '  ');
  end;

  writeln();

  write('Полученный массив: ');
  for i := 1 to 6 do begin
    if(i <=3) then begin
      A[i] :=  A[i] + 4;
    end;
    write(A[i], '  ');
  end;
  writeln();
 End.



Номер 5
var
  A :array[1..6] of real;
  i:integer;

Begin
  A[1] := 5.1;
  A[2] := 3.0;
  A[3] := 8.2;
  A[4] := 1.9;
  A[5] := 4.3;
  A[6] := 7.5;
  write('Исходный массив: ');
  for i := 1 to 6 do begin
    write(A[i], '  ');
  end;

  writeln();

  write('Полученный массив: ');
  for i := 1 to 6 do begin
    if ((i <> 1) and (i <> 6)) then begin
      A[i] :=  A[i] / 2;
    end;
    write(A[i], '  ');
  end;
  writeln();
 End.



Номер 6
var
  A :array[1..6] of real;
  i:integer;

Begin
  A[1] := 5.1;
  A[2] := 3.0;
  A[3] := 8.2;
  A[4] := 1.9;
  A[5] := 4.3;
  A[6] := 7.5;
  write('Исходный массив: ');
  for i := 1 to 6 do begin
    write(A[i], '  ');
  end;

  writeln();

  write('Полученный массив: ');
  for i := 1 to 6 do begin
    if (i > 3) then begin
      A[i] :=  A[i] * 3;
    end;
    write(A[i], '  ');
  end;
  writeln();
 End.



Номер 7
var
  A :array[1..999] of real;
  sum: real;
  i, size:integer;

Begin
  write('Введите кол-во элементов в массиве: ');
  readln(size);

  for i := 1 to size do begin
    write('Введите ', i, ' элемент массива: ');
    readln(A[i]);
  end;

  write('Исходный массив:');
  for i := 1 to size do begin
    write(A[i], '  ');
  end;

  writeln();

  sum := 0;
  for i := 1 to size do begin
    sum := sum +A[i];
  end;
  sum := sum / size;
  writeln('Среднее арифметическое массива равно: ', sum);
 End.