Составить программу для вычисления F=C + (A+B) / (A*B+1) A-наименьший элемент массива; В-количество отрицательных элементов массива; С-количество элементов массива, меньших D (вывести D с клавиатуры). Полученные значения элементов A, B, C, F, вывести на печать.

Question

Информатика

Порфир

24 января, 01:28

Составить программу для вычисления F=C + (A+B) / (A*B+1) A-наименьший элемент массива; В-количество отрицательных элементов массива; С-количество элементов массива, меньших D (вывести D с клавиатуры). Полученные значения элементов A, B, C, F, вывести на печать.

+3

Ответы (1)

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

Феврония · Answer 1

Var

v:array[1 ... 10]of integer;

f:real;

i:byte;

a, b, c, d, min, k:integer;

begin

for i:=1 to 10 do

v[i]:=random (20) - 10;

readln (d) ;

min:=v[1];

b:=0;

for i:=1 to 10 do begin

if v[i]<0 then begin

b:=b+1;

end;

if v[i]>min then

a:=min;

end;

k:=0;

for i:=1 to 10 do begin

if v[i]
k:=k+1;

end;

c:=k;

writeln ('наименьший элемент = ', a) ;

writeln ('количество отрицательных элементов = ', b) ;

writeln ('количество элементов меньших d = ', c) ;

f:=c + (a+b) / (a*b+1) ; writeln (f) ;

end.