Question

Дан массив. Все элементы меньше 10 умножить на 100. Пожааааалуйста, памагити(Это в паскали)Дам 30 балов

Answer 1

const n=10;

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

i,s:integer;

begin

write('      Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(21)-10;

write(a[i]:5,' ');

if a[i]<10 then a[i]:=a[i]*100

end;

writeln;

write('Преобразованый массив: ');

for i:=1 to n do write(a[i]:5,' ')

end.

Answer 2

Конечно, я помогу вам написать программу на языке Паскаль, которая умножит все элементы массива, меньшие 10, на 100. Предположим, у вас есть массив arr:

pascalCopy code
program MultiplyElements;

const
  ARRAY_SIZE = 10; // Размер массива

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

begin
  // Инициализация массива (для примера)
  for i := 1 to ARRAY_SIZE do
    arr[i] := Random(20);  // Заполняем случайными числами от 0 до 19

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

  writeln;
  writeln('Умножаем элементы меньше 10 на 100:');

  for i := 1 to ARRAY_SIZE do
  begin
    if arr[i] < 10 then
      arr[i] := arr[i] * 100;
    write(arr[i], ' ');
  end;

  readln;
end.

Этот пример создает массив arr и заполняет его случайными числами от 0 до 19. Затем программа умножает все элементы меньше 10 на 100 и выводит результаты до и после умножения. Помните, что вам может понадобиться адаптировать этот код под ваши конкретные требования и окружение.