e90969692976
?>

5. С блока "Независимого управления"запрограммирован Поворотробота. Определи кудаповорачивает робот? *Поворот на лево 90 градусаПолный круг по часовбй стрелки на360 градусовПоворот на право на 90 градусовРазворот по часовой стрелки 180градусов​

Информатика

Ответы

cheremetdiana
Program first;

uses Crt;

const N=1000;

var
  A:array[0..N] of integer;
  I,K,Z,S,R,P:integer;
 
begin
  ClrScr;
  Randomize;
  Print('Введите количество элементов массива:'); Readln(R);
  Println('Значение элементов массива');
  for I:=1 to R do begin
    A[I]:=Random(10)-3;
    Write(A[I]:3)
    end;
  Println();
 
  { начало блока вычисления S - суммы отрицательных элементов
    и K - количество положительных, меньших заданного Z (число "А") }
  Print('Введите число А:'); Read(Z);
  S:=0; K:=0;
  for I:=1 to R do begin
    if A[I] < 0 then S:=S+A[I];
    if (A[I] > 0) and (A[I] < Z ) then K:=K+1
    end;
  Writeln('Сумма отрицательных элементов ',S);
  Writeln('Количество положительных элементов, меньших заданного ',K);
  { конец блока }
 
  { начало блока нахождения номера последней пары
    соседних элементов с разными знаками }
  P:=1;
  for i := 1 to n-1 do if A[I]*A[I+1]<0 then P := i;
  if P>0 then
    Writeln('Номер последней пары соседних элементов с разными знаками: ', P)
  else
    Writeln('Массив не содержит элементов с разными знаками');
  { конец блока }
 
end.

Пример
Введите количество элементов массива: 12
Значение элементов массива
  5  5 -1 -2 -1  3  0 -3  4 -1  6  5
Введите число А: 6
Сумма отрицательных элементов -8
Количество положительных элементов, меньших заданного 5
Номер последней пары соседних элементов с разными знаками: 10

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

5. С блока "Независимого управления"запрограммирован Поворотробота. Определи кудаповорачивает робот? *Поворот на лево 90 градусаПолный круг по часовбй стрелки на360 градусовПоворот на право на 90 градусовРазворот по часовой стрелки 180градусов​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

PopovViktorovna
emik071089
Gulyaev_Egorkina
kormilitsynarita
Троцкая-Ивановна
Letajushaya362
Манько_Панферов
Решить в питонеЧисла A и B (A
Тресков946
Иванникова736
rytikovabs
dmdlir
Pavlov447
ldstroy
kate1610
Андрееевич787