Pascal ABC
Дан одномерный массив вещественных чисел X(N). Составить программу, которая бы все элементы массива X, начиная с первого положительного элемента, разделила на два, а остальные элементы увеличила на два. Элементы массива ввести с клавиатуры.

program ArrayTransform;
var
  X: array[1..100] of real;
  N, i, firstPos: integer;
begin
  write('Введите размер массива N: ');
  readln(N);
  writeln('Введите элементы массива:');
  for i := 1 to N do
    read(X[i]);
  firstPos := 0;
  for i := 1 to N do
    if X[i] > 0 then
    begin
      firstPos := i;
      break;
    end;
  if firstPos = 0 then
    for i := 1 to N do
      X[i] := X[i] + 2
  else
    for i := 1 to N do
      if i >= firstPos then
        X[i] := X[i] / 2
      else
        X[i] := X[i] + 2;
  writeln('Преобразованный массив:');
  for i := 1 to N do
    write(X[i]:0:2, ' ');
  writeln;
end.

0 0 Пожаловаться