Const nn = 50; var a,b,nb:array[1..nn] of integer; i,n,j: integer; begin Write('Введите количество элементов в массиве (n<51): '); Read(n); Writeln('Вводите элементы массива'); j:=0; for i:=1 to n do begin Read(a[i]); if a[i]<0 then begin Inc(j); b[j]:=a[i]; nb[j]:=i end end; if j>0 then begin Write('Отрицательные элементы: '); for i:=1 to j do Write(b[i],' '); Writeln; Write('Индексы отрицательных элементов в массиве:'); for i:=1 to j do Write(nb[i]:3); Writeln end end.
Результаты тестирования: Введите количество элементов в массиве (n<51): 9 Вводите элементы массива 3 5 -2 3 -2 0 -6 -8 1 Отрицательные элементы: -2 -2 -6 -8 Индексы отрицательных элементов в массиве: 3 5 7 8
Введите количество элементов в массиве (n<51): 8 Вводите элементы массива -1 -2 -3 -4 0 -1 2 3 Отрицательные элементы: -1 -2 -3 -4 -1 Индексы отрицательных элементов в массиве: 1 2 3 4 6
№ 1 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) неверно, что 0 < X ≤ 3 и Y>5; 2) X является max(X,Y); 3) X не является min(X,Y); 4) Z является min(X,Y,Z). № 2 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) Y не является max(X,Y,Z) и не является min(X,Y,Z); 2) X,Y,Z равны между собой; 3) каждое из чисел X,Y,Z положительно; 4) каждое из чисел X,Y,Z отрицательно.
#include <iostream>
#include <cmath>
using namespace std;
int main(){
double a, b, c;
cin >> a >> b >> c;
double sum = a+b+c;
double pr = a*b*c;
cout << "a+b+c = " << sum << endl;
cout << "a*b*c = " << pr << endl;
cout << "(a+b+c)^2 = " << sum*sum << endl;
cout << "sqrt(a*b*c) = " << sqrt(pr) << endl;
return 0;
}