Геннадьевич-Тимофеева158
?>

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

Информатика

Ответы

koldunovan

Объяснение: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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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

Популярные вопросы в разделе

Нескажу25
galkavik
zuzman601
lidiya08083268
Анатольевна
rashad8985
Васильевич Валерьевна
Vello Olga
Елена_Кошевой
sergeychelyshev197618
Vetroff-11
lakeeva90
Lebedeva1577
marinatehnomaster21
karpovaveronika196