Для решения задать случайным образом одномерный массив размерности n (вводится с клавиатуры) из целочисленных

Question

Информатика: Для решения задать случайным образом одномерный массив размерности n (вводится с клавиатуры) из целочисленных элементов, принадлежащих отрезку [-20; 20]. вывести на экран промежуточные результаты, полученные при вычислении значения заданного выражения. составить программу для вычисления t=(r/(q+1))+s r - наименьший элемент массива; q - произведение элементов массива с нечетными номерами; s - количество элементов, лежащих в интервале (a,b) (ввести с клавиатуры).

tka4ukilia2017 · Answer

Var C:array[1..100] of Integer;i,N,Q,R,A,B:integer;T:real;beginReadln(N,A,B);For i:=1 to N doC[i]:=Random(-20,20);R:=C[1];Q:=1;For i:=1 to N dobeginIf C[i] R thenR:=C[i];If C[i] mod 2=1 thenQ:=Q*C[i];If (C[i] A) and (C[i] B) thenS:=S+1;end;T:=(R/(Q+1))+S;Writeln(R, ,Q, ,S, ,T);end....

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