//Pascal //Заполнение массива случайными числами var A: array[1..255] of integer; i, sum, N: integer; begin write('Введите N: '); readln(N); randomize; //В PascalABC.NET можно убрать for i := 1 to N do begin A[i] := random(21)-10; //Случайные числа от -10 до 10 if ((A[i] mod 2 <> 0) and (A[i] < 0)) then sum := sum + A[i]; write(A[i], ' '); end; writeln; writeln('Сумма отрицательных и нечетных = ', sum); readln; end.
//Pascal //Заполнение массива с клавиатуры var A: array[1..255] of integer; i, sum, N: integer; begin write('Введите N: '); readln(N); for i := 1 to N do begin write('A[', i, '] = '); readln(A[i]); if ((A[i] mod 2 <> 0) and (A[i] < 0)) then sum := sum + A[i]; end; writeln; writeln('Сумма отрицательных и нечетных = ', sum); readln; end.
Какие значения чисел: 0.85Е2 =85 -5.7Е-3 = -0.0057 0.1Е4=1000
Что будет выведено на экран после выполнения следующих команд: a-435c c= 35.1b= -435 280.126-435
Вычислить значения выражений: Round(frac(6.9)); = 1 20 mod 6 * 3; = 6 sqrt(trunc(0.5)) = 0
Записать выражения в общепринятой форме: (-3ab+(b-4*a*c)^2)/корень(2*a); (корень(|a-b|)*(a+b)^2.
a) y:= y * 2; правильная. операция возможна для вещественных чисел. в) х:= х mod 3 + х*cos(0); правильная, все опрации подходят для целых чисел б) x:=trunc(y); правильная г) x:= y+1. неверно нельзя преобразовать вещественный тип в целый
1
Объяснение:
в К будет добавляться 1 каждый раз когда встретится элемент равный 0. Таким образом в К посчитается количество нулевых элементов в массиве А