Question

Помогите срочно!Зачетная работа по информатике! Создать массив из N элементов, подобранных случайным образом,  в промежутке от [-10..10] а) Найти сумму элементов б) Найти среднее значение в) Найти наибольший элемент и вывести его номер г) Подсчитать кол-во отрицательных чисел д) Определить есть ли среди чисел отрицательные е) заменить все положительные числа - 1 , а отрицательные - 0ПРОГРАММА ПАСКАЛЬ ABC

Answer 1

Const N=10;  //Количество элементов массива
var a:array[1..N] of integer;
    i,s,l,l_num, l_otr:integer;
begin
randomize;
s:=0; l:=-10; l_otr:=0;
for i:=1 to N do begin
a[i]:=random(20)-10;
s:=s+a[i];
if a[i]>l then  begin
l:=a[i];
l_num:=i;
end;
if a[i]<0 then
l_otr:=l_otr+1;
end;
writeln(s); //Сумма
writeln(s/N);//Среднее значение
writeln(l_num);//Наибольший элемент
writeln('Отрицательных чисел ',l_otr);
for i:=1 to N do begin   if a[i]>=0 then write(1) else write(0);
end;
end.

Answer 2

Конечно! Вот пример программы на языке Pascal, реализующий указанные действия:

pascalCopy code
program ArrayOperations;

const
  N = 10;

var
  arr: array[1..N] of integer;
  i, sum, max, maxIndex, negativeCount: integer;
  average: real;

begin
  randomize;

  // Заполняем массив случайными числами от -10 до 10
  for i := 1 to N do
    arr[i] := random(21) - 10;

  // Находим сумму элементов
  sum := 0;
  for i := 1 to N do
    sum := sum + arr[i];

  // Находим среднее значение
  average := sum / N;

  // Находим наибольший элемент и его номер
  max := arr[1];
  maxIndex := 1;
  for i := 2 to N do
  begin
    if arr[i] > max then
    begin
      max := arr[i];
      maxIndex := i;
    end;
  end;

  // Подсчитываем количество отрицательных чисел
  negativeCount := 0;
  for i := 1 to N do
  begin
    if arr[i] < 0 then
      negativeCount := negativeCount + 1;
  end;

  // Определяем, есть ли среди чисел отрицательные
  if negativeCount > 0 then
    writeln('Среди чисел есть отрицательные.')
  else
    writeln('Среди чисел нет отрицательных.');

  // Заменяем положительные числа на -1, а отрицательные на 0
  for i := 1 to N do
  begin
    if arr[i] > 0 then
      arr[i] := -1
    else
      arr[i] := 0;
  end;

  // Выводим результаты
  writeln('Массив: ');
  for i := 1 to N do
    write(arr[i], ' ');

  writeln;
  writeln('Сумма элементов: ', sum);
  writeln('Среднее значение: ', average:0:2);
  writeln('Наибольший элемент: ', max);
  writeln('Номер наибольшего элемента: ', maxIndex);
  writeln('Количество отрицательных чисел: ', negativeCount);

  readln;
end.

Надеюсь, это поможет вам выполнить задание по информатике!