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

Ввести массив a(n). найти максимальный элемент массива, произведение нечетных элементов массива. заменить максимум на произведение. вывести полученный массив и произведение.

👇
Ответ:
Jojo11wye
Jojo11wye
05.03.2023
Var
  a:array of integer;
  i,b,c,max:integer;

BEGIN
  write('Введите размер массива - ');
  readln(c);
  setlength(a,c);
  writeln('Введите элементы массива - ');
  max:=0;
  b:=1;
  for i:=0 to c-1 do begin
    read(a[i]);
    if a[i] > a[max] then max:=i;
    if a[i] mod 2 <> 0 then b:=b*a[i];
   
  end;
  a[max]:=b;
  for i:=0 to c-1 do write(a[i]:3);
END.
4,8(59 оценок)
Открыть все ответы
Ответ:
kateKos1
kateKos1
05.03.2023

var

  k: integer;

begin

  readln(k);

  if k< 0 then

    writeln('не может такого быть')

  else

    begin

      write('мы нашли в лесу ',k,' гриб');

      if (k mod 100 in [5..19]) then

        writeln('ов')

      else if (k mod 10 in [2..4]) then

        writeln('а')

      else if (k mod 10=1) then

        writeln

      else

        writeln('ов');

    end;

end.

4,5(49 оценок)
Ответ:
Raydi1337
Raydi1337
05.03.2023
1)Растровый графический файл содержит черно-белое изображение (без градаций серого) размером 100 на 100 точек. Какой объем памяти требуется для храненияэто файла?
Решение: 100*100=10000 точек
2 градации цвета (черный, белый)=1бит
Следовательно: 10000бит
2) Рисунок построен с использованием палитры 256 цветов на экране монитора с графическим разрешением 1024 на 768. Рассчитать объем памяти необходимый для хранения этого рисунка?
Решение: 256=2^8 степени
1024*768=786432бит / 8 = 98304 бит = 12288байт = 12Кб
4,4(20 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ