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

N: =0; for i: =1 to 10 do if a[i]=50 then n: =i; if n=0 then write('нет') else write (i) запишите полный текст программы и выполните ее на компьютере.

👇
Ответ:
В треугольнике АВС угол С равен 90 градусов , угол А равен 30 градусов , АВ=100см.Найдите ВС и cos В
4,5(13 оценок)
Открыть все ответы
Ответ:
Aliy251
Aliy251
25.07.2021
Нужно найти максимальное и минимальное из трёх чисел.
Пусть даны три числа x, y, z
Пусть:
m = min{x, y, z}, 
M = max{x, y, z},
r = max - min;
Теперь остаётся записать в качестве ответа число r, оно и будет разницей.

На C++ написал бы так:
#include <iostream>
using namespace std;

int maxNum(int x, int y, int z)
{
     if ((x>=y)&&(x>=z)) 
          return x;
      else if ((y>=x)&&(y>=z))
          return y;
      else
          return z;
}

int minNum(int x, int y, int z)
{
     if ((x<=y)&&(x<=z)) 
          return x;
      else if ((y<=x)&&(y<=z))
          return y;
      else 
          return z;
}

void main()
{
      setlocale(0, "Rus");
      int x, y, z;
      cout << "Введите через пробел 3 числа" << endl;
      cin >> x >> y >> z;
      cout << "Разница : " << maxNum(x,y,z) - minNum(x,y,z) << endl;
}
4,7(56 оценок)
Ответ:
aryuna2003
aryuna2003
25.07.2021
Uses crt;
const n=4;
      m=4;
var a: array [1..n,1..m] of integer;
    b: array [1..100] of integer;
    x,y,z,max,min,k: integer;
begin
     z:=1;
     for x:=1 to n do begin
         for y:=1 to m do
         begin
              a[x,y]:=random(20);
              write(a[x,y]:3);
         end;
         writeln;
         end;
     for y:=1 to m do begin
         max:=a[1,y];
         for x:=1 to n do
              if a[x,y]>max then max:=a[x,y];
         b[z]:=max;
         inc(z);
         end;
     min:=b[1];
     k:=z-1;
     for z:=1 to n do
         if b[z]<min then min:=b[z];
     writeln;
     writeln(min);
end.

---
Блок-схема во вложении
Программа на языке паскаль. дана матрица размера m*n. найти минимальный среди максимальных элементов
4,6(74 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ