Question

Па паскале, пожалуйста помогите!!! С клавиатуры вводится массив из 10 элементов. Увеличить все элементы кратные 5 на 2. Вывести полученный массив. Ввод осуществить в столбик с подсказкой. ЗАРАНЕЕ СПАСИБО!!! ​

Answer 1

Ответ:

var a:array [1..10] of integer;

i:integer;

begin

for i:=1 to 10 do

begin

write ('Введите ',i:2,' элемент массива и нажмите Enter ');

read (a[i])

end;

writeln;

write ('Массив ');

for i:=1 to 10 do write (a[i],'  ');

writeln;

write ('Массив ');

for i:=1 to 10 do  

begin

if a[i] mod 5 = 0 then a[i]:=a[i]+2;

write (a[i],'  ')

end

end.

Объяснение:

Сначала в строку выводится введённый массив, потом массив после изменений.

Answer 2

Конечно, я помогу вам решить эту задачу! Вот пример кода на языке Pascal (Delphi), который позволит вам ввести массив из 10 элементов, увеличить все элементы, кратные 5, на 2 и вывести полученный массив:

pascalCopy code
program IncreaseArrayElements;

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

begin
  // Ввод элементов массива
  for i := 1 to 10 do
  begin
    Write('Введите элемент ', i, ': ');
    Readln(arr[i]);
  end;

  // Увеличение элементов, кратных 5, на 2
  for i := 1 to 10 do
  begin
    if arr[i] mod 5 = 0 then
      arr[i] := arr[i] + 2;
  end;

  // Вывод полученного массива
  Writeln('Полученный массив:');
  for i := 1 to 10 do
  begin
    Writeln(arr[i]);
  end;

  Readln;
end.

При запуске программы вы сможете ввести каждый элемент массива в столбик, а затем программа увеличит все элементы, кратные 5, на 2 и выведет полученный массив.