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

Заполнить одномерный массив из 10 элементов
случайными числами в интервале [10,100] и найти
минимальный и максимальный элементы из нечетных
элементов массива.
Пример:
Массив:
39 52 84 77 45 32 19 38 49 85
Минимальный чётный: 19
Максимальный чётный: 85

👇
Ответ:
Annsad12121
Annsad12121
08.08.2021

#include <iostream>

using namespace std;

signed main(){

   srand(time(NULL));

   int a[10], mn = 101, mx = -1;

   cout << "Массив: " << "\n";

   for(int i = 0; i < 10; i++){

       a[i] = rand() % 91 + 10;

       cout << a[i] << " ";

       if(a[i] % 2 == 1){

           mn = min(mn,a[i]);

           mx = max(mx,a[i]);

       }

   }

   cout << "\n" << "Минимальный нечетный: " << mn << "\n";

   cout << "Максимальный нечетный: " << mx;

}

4,7(24 оценок)
Открыть все ответы
Ответ:
Karlik777
Karlik777
08.08.2021
Program triples;
const
RAND_F = 1;
RAND_T = 20;
var
b: array[1..15] of integer;
t: array[1..3] of integer;
i, j, max, max_i, tmp: integer;
begin
randomize;
for i := 1 to 15 do
b[i] := random(RAND_T) + RAND_F;
i := 1;
while i < 15 do
begin
t[1] := b[i];
t[2] := b[i+1];
t[3] := b[i+2];
max := t[1];
for j := 2 to 3 do
if t[j] > max then
begin
max := t[j];
max_i := j;
end;
tmp := t[3];
t[3] := max;
t[max_i] := tmp;
if t[2] < t[1] then
begin
tmp := t[2];
t[2] := t[1];
t[1] := tmp;
end;
write('Числа ', i, '-', i + 2, ': ');
writeln(t[1], ' ', t[2], ' ', t[3]);
i := i + 3;
end;
end.
4,8(17 оценок)
Ответ:
ritagribaleva
ritagribaleva
08.08.2021
Обратим внимание, что задания 2 и 3 предполагают одинаковый результат: в самом деле, если число оканчивается на 2, то оно четное, т.е. кратно двум, что приводит задание 3 к заданию 2.
Для задания 1 или заданий 2,3 оставляем в программе только нужную строку.в соответствии с комментарием.

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
  Writeln('k=',a.Where(k->k.IsEven).Count); // для задания 1
  Writeln('s=',a.Where(k->k mod 10=2).Sum) // для заданий 2/3
end.

Пример
n= 17
61 32 83 78 47 80 85 64 52 85 30 77 96 81 14 65 67
k=8
s=84
4,5(4 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ