Question

Срочно нужна помощь задачи по массивам. Паскаль 1) Дан массив из 100 элементов (заполняется случайно). Найти сумму тех элементов массива, порядковые номера которых не совпадают со значением этого элемента. 2) Дан массив из 100 целых чисел (числа вводятся случайно). Найти максимальный элемент массива.

Answer 1

{Дан массив из 100 элементов (заполняется случайно). Найти сумму тех элементов массива, порядковые номера которых не совпадают со значением этого элемента.}var j,k,i:integer;sum:longint;R:Array[1..100] of integer;Beginfor i:=1 to 100 do beginR[i]:= random(95)-25;write(R[i]:3);if i <> R[i] then sum:= sum + R[i];end;writeln;writeln('сумму элементов массива = ',sum);end.
{Дан массив из 100 целых чисел (числа вводятся случайно). Найти максимальный элемент массива.}var k,i,max:integer;R:Array[1..100] of integer;Beginmax:=-25;for i:=1 to 100 do beginR[i]:= random(95)-25;write(R[i]:3);if R[i] > max then max:= R[i];end;writeln;writeln('максимальный элемент массива = ',max);end.

Answer 2

Для решения задачи по массивам вам понадобится программный код на языке Паскаль. Давайте рассмотрим оба варианта задач.

1. Найти сумму тех элементов массива, порядковые номера которых не совпадают со значением этого элемента.

pascalCopy code
program SumDifferentIndexes;

const
  N = 100; // Размер массива

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

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

  sum := 0;

  // Находим сумму элементов с разными индексами
  for i := 1 to N do
  begin
    if i <> arr[i] then
      sum := sum + arr[i];
  end;

  // Выводим результат
  WriteLn('Сумма элементов с разными индексами: ', sum);
end.

2. Найти максимальный элемент массива.

pascalCopy code
program FindMaxElement;

const
  N = 100; // Размер массива

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

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

  maxElement := arr[1];

  // Находим максимальный элемент
  for i := 2 to N do
  begin
    if arr[i] > maxElement then
      maxElement := arr[i];
  end;

  // Выводим результат
  WriteLn('Максимальный элемент массива: ', maxElement);
end.

Оба кода используют функцию Random, которая генерирует случайное значение. Она уже включена в стандартную библиотеку Паскаля, так что вам не нужно дополнительно ее объявлять.

Запустите программу, и она найдет решение для соответствующей задачи.