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

Напишите построчную запись алгоритма нахождения среднего арифметического из трёх введенных на клавиатуре чисел и вывода на экран результата в том случае, если оно будет положительным ( напишите на языке паскаль)

👇
Ответ:
logan9
logan9
21.06.2022
Program Project;
uses crt;
var
  a,b,c: real;
  sa: real;
begin
  clrscr;
  Read(a,b,c);
  Readln;
  sa:=(a+b+c)/3;
  if sa>=0 then
   Writeln(sa:0:5);
  Readln;
end.
4,4(20 оценок)
Открыть все ответы
Ответ:
hdjdjndn
hdjdjndn
21.06.2022
Код C++%0A1%0A2%0A3%0A4%0A5%0A6%0A7%0A8%0A9%0A10%0A11%0A12%0A13%0A14%0A15%0A16%0A17%0A18%0A19%0A20%0A21%0A22%0A23%0A24%0A25%0A26%0A27%0A28%0A29%0A30%0A31%0A32%0A33%0A34%0A35%0A36%0A37%0A38%0A39%0A40%0A41%0A42%0A43%0A44%0A45%0A46%0A47%0A#include %0A#include %0A#include %0Avoid main ()%0A{ int i, j, n;%0Aprintf ("Vvedite kol-vo strok i stolbcov massiva mas: ");%0Ascanf ("&d %d", &i, &j);%0A %0Aint mas [10] [10] = { {1, 1, 1, 1, 1, 1, 1, 1, 1, 1},%0A {1, 1, 1, 1, 1, 1, 1, 1, 1, 1},%0A {1, 1, 1, 1, 1, 1, 1, 1, 1, 1},%0A {1, 1, 1, 1, 1, 1, 1, 1, 1, 1},%0A {1, 1, 1, 1, 1, 1, 1, 1, 1, 1},%0A {1, 1, 1, 1, 1, 1, 1, 1, 1, 1},%0A {1, 1, 1, 1, 1, 1, 1, 1, 1, 1},%0A {1, 1, 1, 1, 1, 1, 1, 1, 1, 1},%0A {1, 1, 1, 1, 1, 1, 1, 1, 1, 1},%0A {1, 1, 1, 1, 1, 1, 1, 1, 1, 1} };%0A %0A %0An=9;%0A %0Afor (a=0; a<=3; a++)%0A...%0A(Нужно сгенерировать цикл, в котором числу а присваивается случайное значение.%0AВ итоге должна получиться матрица, в которой в определенных местах вставлены нули)%0A %0A %0Aswitch (mas [i] [j])%0A{%0Acase 0: mas [i] [j] = 0; mas [j] [10-i+1] = 1; mas [10-j+1] [i] = 1; mas [10-i+1] [10-j+1] = 1; break;%0A %0Acase 1: mas [j] [10-i+1] = 0; mas [i] [j] = 1; mas [10-j+1] [i] = 1; mas [10-i+1] [10-j+1] = 1; break;%0A %0Acase 2: mas [10-j+1] [i] = 0; mas [i] [j] = 1; mas [j] [10-i+1] = 1; mas [10-i+1] [10-j+1] = 1; break;%0A %0Acase 3: mas [10-i+1] [10-j+1] = 0; mas [i] [j] = 1; mas [j] [10-i+1] = 1; mas [10-j+1] [i] = 1; break;%0A %0A}%0Afor (i=0; i<(n-1); i++)%0A{%0Afor (j=0; j<(n-1); j++)%0A %0Aprintf ("reshetku mozhno sostavit, esli %d %d ravny 0, ", mas [i] [j]);%0A}%0Aprintf ("\n");%0A}
4,5(76 оценок)
Ответ:
nikysha04
nikysha04
21.06.2022

Не знаю можно ли считать ноль, как "мінімальне додатнє", потому не включала

Объяснение:

#include<iostream>

using namespace std;

int main()

{

int l[15];

double min=0,max=0;

for(int i=0;i<15;i++)

{

   cin>>l[i];

   if(l[i]>0&&l[i]<min&&min!=0)

       min=l[i];

       if(min==0&&l[i]>0)

           min=l[i];

   if(l[i]<0&&l[i]>max&&max!=0)

       max=l[i];

       if(max==0&&l[i]<0)

           max=l[i];

}

sort(l,l+15);

cout<<min<<" "<<max<<endl;

cout<<min/max<<endl;

for(int i=14;i>=0;i--)

   cout<<l[i]<<" ";

   return 0;

}

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