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

9напишите структуру оператора ветвления

👇
Ответ:
aleksport1p0ck6i
aleksport1p0ck6i
20.07.2021
Pascal

Оператор ветвления (условный оператор) IF
 
 If (условие) then
  Блок, выполняющийся, если условие верно
 else
 Блок, выполняющийся если условие не верно

Сокращенная форма (else может отцутствовать)
if (условие) then
 Блок, выполняющийся, если условие верно

Если условие одно то запись имеет вид
 if a >b then...
Если условий несколько, то они берутся в скобки
and (выполняются все); or (выполняется хоть одно)
1 - верно 0 - неверно
( 1 and 1 = 1; 1 and 0 = 0)   
(1 or 1 =1; 1 or 0 = 1;  0 or 0 = 0)
 if (a>b) and (a > 0) then

Если блок да/нет содержит несколько операторов, то они беруться в операторные скобки
 if a > b then
  writeln (a)    // 1)
 
if a > b then
 begin
  writeln (a); // 1)
  b := a + b; // 2)
 end;

if a > b then
 begin
  writeln (a); // 1)
  b := a + b; // 2)
 end
else
 begin
  writeln (b); //1)
  a := a + b; //2)
 end;
4,4(97 оценок)
Открыть все ответы
Ответ:
Ерко365
Ерко365
20.07.2021

Писал код для другого, но адаптировал под твою задачу)

 

var
  mas: array[1..1000] of integer;
  i,a,n,c: integer;

begin
 n:=0;
 writeln ('Введите количество элементов массива');
 readln (c);
 randomize;
 write ('Массив - ');
  for i := 1 to c do
    begin
      mas[i] := random(c);
      write(' ', mas[i], ' ');
    end;
    writeln;
  begin
     for i := 1 to c do
        if mas[i] > mas[i + 1] then swap(mas[i], mas[i +1]);
   end;
  for i:= 1 to c do begin
     mas[i]:=mas[i+1];
     a:=mas[i];
  end;
 writeln ('Максимальный элемент массива ',mas[i]);
   for i:=1 to c do
     if a=mas[i] then inc(n);
     write ('Количество равных элементов массива ',n);
end.

4,6(50 оценок)
Ответ:

program MassivMaxCount;

Uses Crt;

const n=1000;

var j,m,c:integer;

 

var a: arrray [1..n] of real;

begin

     randomize;

     clrscr;

     write('Введите количество элементов массива n<1000: ');

     readln(m);

      c:=0; 

      max:=a[1];

     for i:=1 to m do 

           begin

               a[i]:=random(20)+5;

                if (a[i]>max) tnen max:=a[i] 

           end;

  for i:=1 to m do  

          if (a[i]=max) then c:=c+1;

                  writeln('Количество элементов равных наибольшему: ',c);

                   readkey;

                     

end. 

 

 

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