magomed200495
09.05.2023 22:45

Створити програму яка порівнює добуток двох чисел числом 50 ( тобто добуток менший за 50- умова вірна добуток більший за 50 -умова хибна). Результат вивести на екран

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
lam3r
09.05.2022 02:44

86 - 8 = 78 ребят любят компьютерные игры

78 - 62 = 16 человек любят только квесты

78 - 54 = 24 человек любит только симуляторы

54 - 16 = 38 человек любят и квесты и симуляторы.

ответ. 38 человек любят и квесты и симуляторы.

 

Круги Эйлера: нарисуй прямоугольник внутри него два пересекающих друг друга круга. Внутри прямоугольника поставь цифру 8 это те кто не любит комп. игры.

Внутри одного круга напиши С и 62, это те кто любит симуляторы их 62 чел.

Внутри другого круга напиши К и 54, это те кто любит квесты их 54 чел.

З.Ы. У меня просто не хочет прикреплять рисунок.

0,0(0 оценок)
Ответ:
sanya3344
23.02.2021 17:11

program n1;
  const n=10;
  var
  mas:array[1..n] of integer;
  i:integer;
  max,min,sum:integer;
  ar:real;
  begin
   for i:=1 to n do

begin
  mas[i]:= random (20)-10;
  write(mas[i],' ');
  writeln
 
end;

  max:=1;
   for i:=2 to n do

   if mas[i]>mas[max] then
   max:=i;
   writeln;
   writeln('Максимаьное значение a[',max,']= ',mas[max]);

   
  min:=1;
  for i:=2 to n do
   if mas[i]<mas[min] then
   min:=i;
   writeln;
   writeln(Минимальное значение a[',min,']= ',mas[min]);
   
 for i:=1 to n do
   sum:=sum+mas[i];
    ar:=sum/n;
   writeln;
   writeln('Среднее арифметическое =  ',ar);
   
end.
{Немного нерационально но работает=)}

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота