С++ №7 Задан массив, состоящий из 15 элементов вещественного типа. Определить количество элементов, значения которых больше первого элемента.
№8 Задан массив, состоящий из 16 элементов вещественного типа. Определить индексы (местоположение) максимального и минимального элементов.
№9 Дан массив, состоящий из 15 элементов целого типа. Получить новый массив, как разность между элементами исходного массива и его среднего арифметического.

AKBARXXX AKBARXXX    3   08.04.2021 22:36    10

Ответы
Arkadysh Arkadysh  08.04.2021 22:40

Объяснение:Const

  N = 15;

Var

  A:array[1..N] of integer;

  i,k:integer;

Begin

Randomize;

Write(‘Исходный массив:’);

k:=0;

For i:= 1 to N do

   Begin

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

   Write(‘ ‘,A[i]);

   if A[i] > A[1] then k:=k+1;

   End;

WriteLn;

WriteLn(‘k = ‘,k);

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика