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

Впрограмме используется одномерный целочисленный массив a с индексами от 0 до 9. значения элементов равны 1,2,3,6,5,0,4,8,9,7 соответственно,т.е. a[0] = 1; a[1] = 2 и т.д.определите значение переменной c после выполнения следующего фрагмента программы.можно с объяснением c: =0; for i: =1 to 9 do
if a[i]> a[0] then begin c: =c+1; t: =a[i]; a[i]: =a[0]; a[0]: =t; end;

👇
Ответ:
sss126
sss126
17.11.2020

короче больше перемудрили , смотри

у тебя есть массив A

i - это индексы ес что , A[i] эт значения

в чем смысл этой писанины ? цикл for прогоняет все индексы , а соответсна и все значения массива

и сравнивает значения каждого следующего индекса ( типо сначала значение А [1] , потом A [2] и так до 9 индекса ) со значением А[0] , которое сначала по условию 1

потом грубо говоря строки t:=A[i]; и A[0]:=t; можно заменить на A[0]:=A[i]; ( логично ж )  и наш изначальный A[0] будет принимать значение A[i] ( если выполнится if конечно же )

ДАЛЬШЕ ПРОГОНИМ ( это единственная более-менее полезная часть объяснения )

сначала заметь , что индексы  идут от 1 до 9 ( а в условии индексы от 0 до 9)

      смотрим : значение А [1] >  А[0]  ? ( т.е. 2 больше 1 ?)  - да! , к c прибавляем единичку  , a A[0] теперь не 1 , а 2.

аналогичные действия выполняем до 6 ( по значениям смысле)  , на этот момент c должно быть равно 3

дальше будут числа меньше  ( 5,0 , 4)

а потом по аналогии продолжаем , ведь 8 больше 6 ( опять же, я уже не обращаю внимания на индексы , ведь оно нам и не надо )

8 > 6 ? => c:= c+1 = 3 + 1 = 4 ; A[0]:=8

9> 8 ? => c:= c+1 =4 + 1 = 5; A[0]:= 9

дальше идти не будет  ( 7 меньше 9 )  и программа прервется

в ответ улетает 5

4,8(7 оценок)
Открыть все ответы
Ответ:
Аноним9111
Аноним9111
17.11.2020
Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

  readln;
end.
4,8(74 оценок)
Ответ:
kate832
kate832
17.11.2020

для задач необходимо подключить библиотеку cmath, задачи решены на с++, надеюсь решения тебе

Объяснение:

a)    int a, b, c, d; // a меньшее основание б большее . с д - боковые стороны

   cin >> a >> b >> c >> d;

   cout << a+b+c+d << endl;// периметр

   cout << sqrt(c*c-((b-a)/2)*((b-a)/2))*(a+b)/2; // площадь

   return 0;

b)   int x1,y1, x2,y2;

   cin >> x1 >> y1 >> x2 >> y2;

   cout << sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));

   return 0;

c)int  x2,y2;

   cin >>  x2 >> y2;

if ( sqrt((x2-0)*(x2-0)+(y2-0)*(y2-0))>7)

cout << "YES";

else cout << "NO";

   return 0;

d)int  a[10],c=0;

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

      {cin >> a[i];

      c+=abs(a[i]);}

      cout << c/10;

return 0;

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