М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Cheburek1112
Cheburek1112
10.04.2020 04:34 •  Информатика

Впаскаль. решить,хоть какую нибудь из этих. 1. найти наибольший элемент и его номер в последовательности, элементы которой вводятся с клавиатуры. размер произвольный. 2.упорядочить данную последовательность по убыванию. элементы вводятся с клавиатуры. размер произвольный. 3. упорядочить данную последовательность по убыванию. массив задан датчиком случайных чисел на интервале [-54,33]. размер произвольный. 4. массив а вводится с клавиатуры. сформировать новый массив в, состоящий из положительных элементов массива а. размер произвольный.

👇
Ответ:
elzamarg
elzamarg
10.04.2020
Все решения даны в системе  программирования
PascalABC.NET 3.2, сборка 1382 от 06.02.2017

Если программа не работает, обновите версию!

№1
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var im:=a.IndexMax;
  Writeln('Максимальный элемент номер ',im+1,' равен ',a[im])
end.

Пример
n= 6
Вводите числа: 13 8 -15 0 16 -24
Максимальный элемент номер 5 равен 16

№2
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  Sort(a,(x,y)->x>y);
  a.Println
end.

Пример
n= 5
Вводите числа: 5 -4 6 0 5
6 5 5 0 -4

№3
begin
  var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println;
  Sort(a,(x,y)->x>y); a.Println
end.

Пример
n= 14
-2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
24 21 18 17 13 12 2 -2 -3 -10 -11 -30 -42 -53

№4
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var b:=a.Where(x->x>0); b.Println
end.

Пример
n= 14
Вводите числа: -2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
2 17 18 24 12 13 21
4,7(2 оценок)
Открыть все ответы
Ответ:
natashafed2
natashafed2
10.04.2020
#include <iostream>
#include <cmath>
using namespace std;
 
int main()
{
    double a;
    double b;
    double c;
    double x;
    cout << "Введите значение a: ";
    cin >> a;
    cout << "Введите значение b: ";
    cin >> b;
    cout << "Введите значение c: ";
    cin >> c;
    if((b*b - 4*a*c) >= 0) //Если дискриминант больше или равен 0
    {
        x = ( -1*b + sqrt(b*b - 4*a*c) ) / (2 * a);
        cout << "Первый корень равен " << x << endl;
        x = ( -1*b - sqrt(b*b - 4*a*c) ) / (2 * a);
        cout << "Второй корень равен " << x << endl;
    }
    else
    {
        cout << "Дискриминант меньше 0, нет вещественных корней." << endl;
    }
 
    return 0;
}
4,4(77 оценок)
Ответ:
1) Символом может быть и пиктограмма и какая-нибудь буква, цифра, знаки препинания. А пиктограмма это исключительно условное изображение явлений, предметов и т. д.
2 ) В данной статье приведены практические рекомендации, комплексы упражнений и различные меры, благодаря которым человек, работающий за компьютером может сам, собственными усилиями, нейтрализовать отрицательное воздействие компьютера на организм зрению, мышечной и опорно-двигательной системе справиться со значительными статическим нагрузками.

При условии внимательного отношения к своему здоровью - вам удастся избежать проблем с онемением пальцев рук из-за т.н. "туннельного синдрома", серьезных дегенеративно-дистрофических изменений шейного отдела позвоночника и многих других, которые в первую очередь не позволят вам работать... за компьютером. Ну а для основной массы интеллигентного населения - это беда, последствия которой известны...
4,8(100 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ