Question

Дан массив, размерность 15. Элементы, кратные 3, увеличить в 2 раза. Нужно в Паскале программу составить, 9 класс.

Answer 1

Var A:array[1..15] of integer;
i:integer;
Begin
For i:= 1 to 15 do
    Begin
    A[i]:=random(21)-10;
    Write(A[i],' ');
    if A[i] mod 3 = 0 then A[i]:=A[i]*2;
    End;
    WriteLn;
For i:= 1 to 15 do
    Write(A[i],' ')
End.

Answer 2

Конечно, вот пример программы на языке Паскаль, которая выполняет указанное вами действие:

pascalCopy code
program ModifyArray;

var
  arr: array[1..15] of Integer;
  i: Integer;

begin
  // Заполнение массива случайными числами
  for i := 1 to 15 do
    arr[i] := Random(100); // Здесь 100 - это максимальное значение случайного числа

  // Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to 15 do
    write(arr[i], ' ');
  writeln;

  // Увеличение элементов, кратных 3, в 2 раза
  for i := 1 to 15 do
    if arr[i] mod 3 = 0 then
      arr[i] := arr[i] * 2;

  // Вывод модифицированного массива
  writeln('Модифицированный массив:');
  for i := 1 to 15 do
    write(arr[i], ' ');
  writeln;

  readln;
end.

Пожалуйста, убедитесь, что код скопирован верно, и перед выполнением программы у вас установлена среда разработки, поддерживающая язык Паскаль (например, Lazarus или Dev-Pascal).