Question

Дан массив из 7 элементов целых чисел, увеличить каждый элемент на 3, получившийся массив вывести на экран. Паскаль

Answer 1

program HelloWorld;

var a:Array [1..7] of integer;

var i:integer;

begin

//Тут присваиваешь значения элементам массива например: a[0]:=1;

For i:=1 to 7 do

begin

a[i]:=a[i]+3;

writeln(a[i]);

end;

end.

Answer 2

Вот пример кода на языке Паскаль (Pascal), который увеличивает каждый элемент массива на 3 и выводит результат на экран:

pascalCopy code
program IncreaseArrayElements;
var
  arr: array[1..7] of Integer; // объявление массива из 7 элементов
  i: Integer;
begin
  // заполнение массива случайными значениями (для примера)
  for i := 1 to 7 do
    arr[i] := Random(100);

  // увеличение каждого элемента массива на 3
  for i := 1 to 7 do
    arr[i] := arr[i] + 3;

  // вывод массива на экран
  for i := 1 to 7 do
    WriteLn(arr[i]);

  ReadLn;
end.

Этот код создает массив arr из 7 элементов типа Integer. Затем заполняет его случайными значениями (можно изменить для своих нужд) и увеличивает каждый элемент на 3. После этого выводит получившийся массив на экран.