Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
PorAlex
4 года назад
5
Дан массив А(6). Найти сумму и количество положительных элементов, расположенных между минимальным и максимальным элементами.
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
Get
[59]
4 года назад
0
0
Program example;
const
A=30;
Nmin:=-100; // минимальный параметр
Nmax:=100; //максимальный
var
flag_max : integer;
flag_min : integer;
i. jmin,jmax : integer; //счетчики
Randomize;
array max[A];
//заполняем случайніми числами диапозон -100 +100
for i=1 do A do begin max=:= Random (Nmin + 1) - 2 * Nmax; end;
//ищим максимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_max:=max
jmax:=i; end; else begin flag_max:=max[i+1];
jmax:=i; end; end;
//минимальный элемент
for i=1 do A do begin if max>max[i+1] then begin flag_min:=max[i+1]
jmin:=i; end; else begin flag_min:=max; jmin:=i; end; end;
//подсчитываем сумму
for i=jmin do jmax-1 do begin max:=max[i+1] end;
//сумма чисел в рандовом массиве между макс и мин єлементом
write('сума',max);
Отправить
Читайте также
В фигуры на рисунке вписаны первые буквы некоторых названий растений.Впиши в таблицу пропущенные названия множеств. Впиши в фигу
OdJob [665]
См фаил
впиши растения
0
0
3 года назад
Сколько нужно времени для передачи 5мб информации нсли скорость передачи составляет 64кб/с? Сколько нужно времени для передачи 5
Fresety
512 кбит/с=64кбайт/с
В минуту – 64*60=3800 кбайт=3,75 Мбайт
1 Гбайт=1024 Мбайт
1024/3,75=273,1 минуты
273,1/60=4,55 часа=4 часа 33 минуты
Вот на это ориентироваться.
0
0
3 года назад
Ребят ,тут такое дело в общем как сказать компьютеру на языке С++ ,что человек вводит неопределенное кол-во значений. Т.Е. вот п
ивушка [7]
#include <iostream>
#include <vector>
#include <algorithm>
#include <numeric>
int main()
{
std::vector<int> arrayOfDummies;
for (char answer{0};;)
{
std::cout << "You want to enter a rating?" << std::endl;
std::cin >> answer;
if (int value{0}; answer == 'y')
{
std::cout << "Enter rating:";
std::cin >> value;
arrayOfDummies.push_back(value);
}
else break;
}
std::cout << "Average: " << std::accumulate(arrayOfDummies.begin(), arrayOfDummies.end(), 0) /
arrayOfDummies.size() << std::endl;
}
0
0
3 года назад
как в экселе умножить одну и ту же матрицу на себя 3 раза?н/р:К3=К*К*К
gubaric
умножить n раз - значит возвести в степень n - значок ^
0
0
4 года назад
30 баллов , помогитеХ стр - 140 строк - 88 символов (I - 16 бит)I = 3080 кбi = 16 бит
AvtorVik [91]
Ответ :128
.............
0
0
3 года назад
Смотрите также:
Напишите программу которая 10 раз выводит на экран ваши имя и фамилию
15
·
1 ответ
Рассчитайте объём памяти, необходимой для представления одноминутного фильма на экране монитора с пространственным разрешением 8
14
·
1 ответ
ПОМОГИТЕ, ПОЖАЛУЙСТА! ЛЁГКАЯ ЗАДАЧА ПО ПАСКАЛЮ!Составьте программу, которая позволяет заменить в строке s слово t1 на слово t2.
14
·
1 ответ
Постройте таблицы истинности для логических формул и упростите формулы, используя законы алгебры логики. С подробным пояснением,
6
·
1 ответ
3 плюса и 3 минуса о электронной почте?
15
·
1 ответ
Разгадайте шифр. Срочно нужно, помогите
7
·
1 ответ
Составьте программу для вычисление количества теплоты , полученной при парообразовании M эфира , если его теплота парообразовани
6
·
1 ответ
Алфавит состоит из 35 букв. какое кол во информации несет текст, содержащий 10 символов
6
·
1 ответ
Дано N=256, I=3,5 кб найти K
5
·
1 ответ
Помогите составить программу на языке Паскаль Нам дана лишь формула, надо из неё построить программу if a>b and b>c then y
7
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!