xsmall1
?>

Вмассиве с={1, 2, -3, 0, -1, -7, -9, 9, 10, -3} найти количество соседств двух положительных и количество соседств двух отрицательных элементов массива, проверьте программу , что неправильно ? var c: array[1..10]of integer = (1, 2, -3, 0, -1, -7, -9, 9, 10, -3); i: =i+1; i, n, t, k: integer; begin function controll (c: array): boolean; var i: integer; if ((c[i]> 0) and (c[i+1]> 0)) or ((c[i]< 0)and (c[i+1]< 0)) then k: =k+1; end. close (f); repeat write('c: '); readln(c); until (c> 0)and(c< =10); writeln('введите ', c, ' элементов'); for i: =1 to 10 do i: =i+1; read(c[i]); for i: =1 to 10 do i: =i+1; write('c: '); readln(c); repeat write('c: '); readln(c); until (c< -3)and(c< =2); writeln('введите ', c, ' элементов'); c: boolear; writeln('c'); end. //основная программа close file (f

Информатика

Ответы

sharaeva-is
Var
c:ARRAY[1..10]of integer = (1,2,-3,0,-1,-7,-9,9,10,-3);
i,k1,k2:integer;
begin
k1:=0; k2:=0;
for i:=1 to 9 do
 begin
 if (c[i]>0)and(c[i+1]>0) then k1:=k1+1;
 if (c[i]<0)and(c[i+1]<0) then k2:=k2+1;
 end;
writeln('k1 = ',k1,' k2 = ',k2);
end.

Результат:
k1 = 2 k2 = 2
mariya

def solve(x, op, y):

   if str(op) == '+':

       try:

           print(float(x) + float(y))

       except ValueError:

           print('одно из значений не число')

   elif str(op) == '-':

       try:

           print(float(x) - float(y))

       except ValueError:

           print('одно из значений не число')

   elif str(op) == '*':

       try:

           print(float(x) * float(y))

       except ValueError:

           print('одно из значений не число')

   elif str(op) == '/':

       try:

           print(float(x) / float(y))

       except ZeroDivisionError:

           print('на ноль делить нельзя')

       except ValueError:

           print('одно из значений не число')

       return 0

   elif str(op) == '//':

       try:

           print(float(x) // float(y))

       except ZeroDivisionError:

           print('на ноль делить нельзя')

       except ValueError:

           print('одно из значений не число')

       return 0

   elif str(op) == '^':

       try:

           print(float(x) ** float(y))

       except ValueError:

           print('одно из значений не число')

   else:

       print('error')

   return 0

while True:

   num1, op, num2 = input().split()

   solve(num1, op, num2)

Объяснение:

Данные вводятся через пробел, ex:

Ввод: 2 + 2

Вывод: 4

Voronina747

Вариант C:

#include <stdio.h>

#define SIZE 10

int main(void)

{

float result = 1;

float array[SIZE];

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

{

 scanf("%f", &array[i]);

 if(array[i] > 0 && (i % 6 == 0))

 {

  result *= array[i];

 }

}

printf("Произведение элементов, удовл. условию = %f", result);

return 0;

}

Вариант C++:

#include <iostream>

const int _size = 67;

int main()

{

float result = 1;

float arr[_size];

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

{

 std::cin >> arr[i];

 if(arr[i] > 0 && (i % 6 == 0))

 {

  result *= arr[i];

 }

}

std::cout << "Результат = " << result;

return 0;

}

Объяснение:

Проверяем элемент. Если он больше нуля и стоит на позиции, кратной 6, то добавляем в общее произведение.

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

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

Вмассиве с={1, 2, -3, 0, -1, -7, -9, 9, 10, -3} найти количество соседств двух положительных и количество соседств двух отрицательных элементов массива, проверьте программу , что неправильно ? var c: array[1..10]of integer = (1, 2, -3, 0, -1, -7, -9, 9, 10, -3); i: =i+1; i, n, t, k: integer; begin function controll (c: array): boolean; var i: integer; if ((c[i]> 0) and (c[i+1]> 0)) or ((c[i]< 0)and (c[i+1]< 0)) then k: =k+1; end. close (f); repeat write('c: '); readln(c); until (c> 0)and(c< =10); writeln('введите ', c, ' элементов'); for i: =1 to 10 do i: =i+1; read(c[i]); for i: =1 to 10 do i: =i+1; write('c: '); readln(c); repeat write('c: '); readln(c); until (c< -3)and(c< =2); writeln('введите ', c, ' элементов'); c: boolear; writeln('c'); end. //основная программа close file (f
Ваше имя (никнейм)*
Email*
Комментарий*

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

s-laplandia6
Алексей Шуклин
hr2251
Shaubnatali
Lugovoi
Aleksei806
brendacepedam
Alekseevich_Viktorovna
armynis8
orgot9
Евгеньевич-Куликов1614
sergey
Сергей
Stepan Rastorgueva850