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

1. Рассмотрите изображение. SORATCH Dain Праскат Подскази ОСкретч к к е Untitled Скрипты Костюмы Звуки Движение внешность Зву? Перо Данные События Управление Сонсоры Операторы Другие блоки идти 10 шагов повернути Спа 15 градуса повернути на градусор повернути направлении 90 повернута крапель мешко Перейти ох; у перейти в уарлы ше х: 240 у: -140 лись 1 секунд оточку и о Спрайты Новый объект о шенить за 10 установить хво Сцена 1 фон Sprdat авить ума 10 установить у во Нарья фон Предложите требования для создания данной программы. 1. 2. 3.

👇
Открыть все ответы
Ответ:
кисюня011088
кисюня011088
02.06.2020

Const

  N = 30;

Var

  a: array [1..N] of integer;

  MaxEv, MaxOdd, I: integer;

begin

  for i := 1 to N do

  begin

    write('a[', i , '] = ');

    readln(a[i]);

  end;

  MaxEv := 0;

  MaxOdd := 0;

  For I := 1 to N do { перебираем все элементы массива}

    if a[i] mod 2 = 0 then { проверяем делится ли текущий элемент на 2 без остатка}

    begin

      if a[i] > MaxEv then {если да, то проверяем больше ли найденного до этого наибольшего четного}

        MaxEv := a[i]; {присваиваем новое наибольшее четное значение}

     end

     else

       if a[i] > MaxOdd then {если нет, то проверяем больше ли найденного до этого наибольшего нечетного}

         MaxOdd := a[i]; {присваиваем новое наибольшее нечетное значение}

  Writeln ('MaxEv - MaxOdd = ', MaxEv, ' - ', MaxOdd, ' = ', MaxEv - MaxOdd);

end.

 

 

4,7(7 оценок)
Ответ:
JustTkach
JustTkach
02.06.2020

uses crt;
var a:array[1..20] of integer;
b:array[1..20] of integer;
i,j,k,min,max:integer;
begin
writeln('Первый массив: ');
for i:=1 to 20 do begin
a[i]:=random(50-10+1)+10;
write(a[i]:3);
end;
writeln;
writeln('Второй массив: ');
for j:=1 to 20 do begin
b[j]:=random(90-30+1)+30;
write(b[j]:3);
end;
writeln;
min:=60;
writeln('Первый массив в порядке возрастания: ');
for i:=1 to 20 do begin
for j:=1 to 20 do begin
if a[j]<min then begin min:=a[j]; k:=j; end;
end;
a[k]:=60;
write(min:3);
min:=60;
end;
writeln;
max:=0;
writeln('Второй массив в порядке убывания: ');
for j:=1 to 20 do begin
for i:=1 to 20 do begin
if b[i]>max then begin max:=b[i]; k:=i; end;
end;
write(max:3);
b[k]:=0;
max:=0;
end;
writeln;
end.

Насчёт среднего арифметического мне не понятно: среднее арифметическое каких повторяющихся чисел брать? В каждом массиве, или в двух массивах одновременно? И учитывать ли то, что числа в массиве могут повторяться. Именно поэтому я не включил этого в код.

4,6(51 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ