pascal
Объяснение:
var i, n, mysign, nsign: integer;
ismon: boolean;
a: array of integer;
begin
Write('Введите размер массива: '); ReadLn(n);
SetLength(a, n);
WriteLn('Введите Элементы массива: ');
for i := 0 to n - 1 do ReadLn(a[i]);
mysign := sign(a[1] - a[0]);
if mysign >= 0 then mysign := 1;
ismon := true;
for i := 2 to n - 1 do
begin
nsign := sign(a[i] - a[i - 1]);
if nsign >= 0 then nsign := 1;
if nsign <> mysign then ismon := false;
end;
if ismon then WriteLn('Массив монотонный') else WriteLn('Массив не монотонный');
end.
Поделитесь своими знаниями, ответьте на вопрос:
1.Які об'єкти містить відеофільм a. Заголовокb. Титриc. звуковий супровідd. візуальні ефектиe. ефекти переходу2. Мультимедіа – цеa. поєднання різних в подання повідомленьb. набір пристроїв, необхідних для перегляду відеоc. набір програм, необхідних для опрацювання аудіо- та відеооб'єктів3. Які з наведених програм є програми для створення і редагування відеоданих?a. Pinnacle Studiob. Winampc. Windows MovieMakerd. Kinoe. Звукозапис4. Відео- та веб-камери, фотоапарати, мікрофони, музичні синтезатори, графічні планшети тощо – цеa. програми для роботи з мультимедіаb. пристрої для роботи з мультимедіаc. дані, що містять об'єкти мультимедіа5. Назвіть тип (формат) мультимедійних файлів без стиснення або без втрати данихa. MIDIb. WAV або WAVEc. MPEG-4d. FLAC6. Для чого призначена програма Windows Movie Makera. програма для захоплення звукуb. для створення відеофільмів, що можуть містити відеофрагменти, фотографії, звуковий супровід, різноманітні написи (титриc. програма для опрацювання звукових даних7. Формат звукових файлів, що використовується як основний для нестиснутих аудіоданих в операційних системах Windowsa. MIDIb. WAWc. MP38. Яка стандартна програма запису звуку в Windows ?a. Медіаплеєрb. Аудіоплеєрc. Звукозаписd. MovieMaker9. Кодеки – a. це програми, для опрацювання звукових відеоданихb. це програми, що містять алгоритми кодуванння та декодування мультемедійних даних10. З чого складається відеофільмa. стрічкиb. кадрів11. Відеоформати, що використовуються в Інтернетіa. FLVb. SWFc. RealVideo12.Скільки існує груп аудіофайлівa. 3b. 2c. 5d. 6e. 1
Відповідь:
1)известны данные о мощности двигателей 20 моделей легковых автомобилей выясните есть ли среди них модель мощность двигателя который превышает 200 л.с.
#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL , "Rus");
int input;
for(int i = 1; i < 20; i++){
cout << "Введите мощность " << i << " автомобиля: ";
cin >> input;
if(input > 200){
cout << "Автомобиль " << i << " Превышает мощность двигателя в 200 л.с" << endl;
}
}
return 0;
}
Напечатайте минимальное число больше 200 которое должно делиться на 17
#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL , "Rus");
for(int i = 200;;i++){
if(i % 17 == 0){
cout << "Число " << i << " больше 200 и минимальное которое делиться на 17" << endl;
break;
}
}
return 0;
}
Известны данные о температуре воздуха в селе Бурабай в течение месяца .Определите сколько раз температура опускалась ниже 0 градусов
#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL , "Rus");
int temp,counter = 0;
for(int days = 1; days <= 30; days++){
cout << "Введите температуру в " << days << " день: ";
cin >> temp;
if(temp < 0){
counter++;
}
}
cout << "Температура опускалась ниже 0 " << counter << " раз." << endl;
return 0;
}