Задан массив, состоящий из 15 элементов вещественного типа. Опреде-

лить количество элементов, значения которых больше первого элемента

Question

Информатика

Леруха

6 сентября, 18:22

Задан массив, состоящий из 15 элементов вещественного типа. Опреде-

лить количество элементов, значения которых больше первого элемента

+5

Ответы (1)

Знаете ответ на вопрос?

Феодулия · Answer 1

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.

Задан массив, состоящий из 15 элементов вещественного типа. Опреде-лить количество элементов, значения которых больше первого элемента

Задан массив, состоящий из 15 элементов вещественного типа. Опреде-

лить количество элементов, значения которых больше первого элемента