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

Вмассиве хранится информация максимальной скорости каждой из 40 марок легковых автомобилей. определить порядковый номер самого быстрого автомобиля. если таких автомобилей несколько, то должен быть найден номер: а) первого из них; б) последнего из них.

👇
Ответ:
1660044
1660044
08.09.2021
Const
  n=40;
var
  a:array[1..n] of integer;
  i,amax,n1,nn:integer;
begin
  Randomize;
  Writeln('Элементы массива');
  amax:=0;
  for i := 1 to n do
  begin
    a[i]:=Random(61)+170; { [170..230] }
    Write(a[i]:4);
    if amax<a[i] then
      begin amax:=a[i]; n1:=i; nn:=i end
    else
      begin if amax=a[i] then nn:=i end
  end;
  Writeln;
  Writeln('Номер первого автомобиля ',n1,', последнего- ',nn)
end.

Тестовое решение:
Элементы массива
 185 202 226 209 200 183 219 181 228 181 206 171 182 210 226 187 214 229 219 219 219 206 229 183 178 177 197 199 180 186 183 203 191 194 214 197 215 194 221 187
Номер первого автомобиля 18, последнего- 23
4,6(2 оценок)
Открыть все ответы
Ответ:
faiarina2016
faiarina2016
08.09.2021
1) program ex;
 var i:integer ;mas:array [1..10] of integer;
 begin 
  for i:=1 to 10 do   
  begin    
   mas[i]:=random(9)+1;    
   if (mas[i] mod 2)=0 then     
    mas[i]:=mas[i]+1;   
  end;
 end. 
2)program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin    
  mas[i]:=random(9)+1;    
  if (mas[i] mod 2)=0 then     
   mas[i]:=0;   
  else
   mas[i]:=mas[i]*3;
 end;
end.
3)program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin    
  mas[i]:=random(9)+1;    
  if (i mod 2)=0 then     
   mas[i]:=(mas[i]*mas[i]);   
 end;
end.
4)program ex;
var i:integer ;mas:array [1..10] of integer;
begin 
 for i:=1 to 10 do   
 begin    
  readln(mas[i]); 
  if (mas[i]<0) then     
   mas[i]:=mas[i]*(-1);   
 end;
end.
4,6(79 оценок)
Ответ:
Anton3228
Anton3228
08.09.2021

1)

2101 в двоичной в форме 100000110101 

для него нужно 12 разрядов, а в 2-х байтовой ячейке их 16 поэто дописываем спереди  4 нуля.

ответ: 0000100000110101.

 

2)

для этого нужно записать число в двоичном виде и записать для него дополнительный код и потом перевести в 16-ю сисему счисления

 0000100000110101  пр.

обратный код это код в котором все 0 заменены на 1, а 1 на 0

 1111011111001010  обр.

чтобы получит дополнительный код нужно прибавить 1

 1111011111001011  доп.

теперь смотрим по 4 разряда и заменяем 1 символом в 16 системе счисления

в 16- системе счисления это F7CB

 

3)F840 = 63552;

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