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

Сижу на информатике) 8 класс. turbo basic. тема: массивы. нужно найти произведение четных отрицательных чисел. или найти количество кратных трем или пяти.

👇
Ответ:
Лерочка2806
Лерочка2806
27.02.2021
Я в диалектах не очень, но вот вспомнил VB.net :)
 Sub Main()
        Dim a(10) As Integer
        Dim b As Integer = 1
        Dim c As Integer

        Dim R As Random = New Random()
        For i As Integer = 0 To 10
            a(i) = R.Next(12)
            Console.WriteLine("[" + i.ToString() + "] => " + a(i).ToString())
        Next

        For i As Integer = 0 To 10 
           If ((a(i) Mod 2 = 0) And (a(i) < 0)) Then b = b * a(i)
            If ((a(i) Mod 3 = 0) Or (a(i) Mod 5 = 0)) Then c = c + 1
        Next
        Console.WriteLine("Произведение чётных отрицательных: " + b.ToString())
        Console.WriteLine("Кол-во кратных 3 или 5: " + c.ToString())
        Console.Read()
    End Sub
4,8(26 оценок)
Открыть все ответы
Ответ:
Kurlyk111
Kurlyk111
27.02.2021

C++

Объяснение:

#include <iostream>

using namespace std;

const int maxCount = 1000;

int main() {

int i, count;

int *arr;

 

cout << "Input count elements: ";

cin >> count;

 

if(count <= maxCount) {

 arr = new int[count];

 

 int st = 0;

 

 cout << "Input elements array" << endl;

 

 for(i = 0;i < count;i++) {

  cin >> arr[i];

  if(arr[i] > 70) {

   st++;

  }

 }

 

 cout << "Result: " << st;

}  

else {

 cout << "Error!" << endl;

}

 

return 0;

}

4,5(15 оценок)
Ответ:

Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых сумма элементов делится на 2, но не делится на 4. В данной задаче под парой подразумеваются два соседних элемента массива.

Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.

Бейсик Python

CONST N = 20

DIM A (1 TO N) AS INTEGER

DIM I, J, K AS INTEGER

FOR I = 1 TO N

INPUT A(I)

NEXT I

END

// допускается также использовать

// две целочисленные переменные

// j и k

a = []

n = 20

for i in range(0, n):

a.append(int(input()))

Паскаль Алгоритмический язык

const

N = 20;

var

a: array [1..N] of

integer;

i, j, k: integer;

begin

for i := 1 to N do

readln(a[i]);

end.

алг

нач

цел N = 20

целтаб a[1:N]

цел i, j, k

нц для i от 1 до N

ввод a[i]

кц

кон

Си++

#include

#define N 20

int main() {

int a[N];

int i, j, k;

for (i = 0; i < N; i++)

cin >> a[i];

return 0;

}

В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например, Free Pascal 2.6). В этом случае Вы должны использовать те же самые исходные данные и переменные, какие были предложены в приведённых фрагментах.

Решение · Поделиться · Курс · Сообщить об ошибке

2

Задания Д25 C2 № 7709

Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –10 000 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, в которых сумма элементов делится на 3, но не делится на 9. В данной задаче под парой подразумеваются два соседних элемента массива.

Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.

Бейсик Python

CONST N = 20

DIM A (1 TO N) AS INTEGER

DIM I, J, K AS INTEGER

FOR I = 1 TO N

INPUT A(I)

NEXT I

END

// допускается также использовать

// две целочисленные переменные

// j и k

a = []

n = 20

for i in range(0, n):

a.append(int(input()))

Паскаль Алгоритмический язык

const

N = 20;

var

a: array [1..N] of

integer;

i, j, k: integer;

begin

for i := 1 to N do

readln(a[i]);

end.

алг

нач

цел N = 20

целтаб a[1:N]

цел i, j, k

нц для i от 1 до N

ввод a[i]

кц

кон

Си++

#include <iostream>

#define N 20

using namespace std;

int main() {

int a[N];

int i, j, k;

for (i = 0; i < N; i++)

cin >> a[i];

return 0;

}

В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например, Free Pascal 2.6). В этом случае Вы должны использовать те же самые исходные данные и переменные, какие были предложены в приведённых фрагментах.

Решение · Поделиться · Курс · Сообщить об ошибке

3

Задания Д25 C2 № 7770

Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от –100 до 100 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество пар элементов массива, произведение которых положительно, а сумма кратна 7. Под парой подразумевается два подряд идущих элемента массива. Исходные данные объявлены так, как показано ниже на примерах для некоторых языков программирования и естественного языка. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.

Бейсик Паскаль

N = 40

DIM A(N) AS LONG

DIM I, J, K AS LONG

FOR I = 1 TO N

INPUT A(I)

NEXT I

...

END

const

N = 40;

var

a: array [1..N] of longint;

i, j, k: longint;

begin

for i := 1 to N do

readln(a[i]);

...

end.

Си++ Алгоритмический язык

#include

#define N 40

int main()

{

long a[N];

long i, j, k;

for (i = 0; i < N; i++)

cin >> a[i];

...

}

алг

нач

цел N = 40

цел таб a[1:N]

цел i, j, k

нц для i от 1 до N

ввод a[i]

кц

...

кон

Естественный язык

Объявляем массив A из 40 элементов.

Объявляем целочисленные переменные I, J, K.

В цикле от 1 до 40 вводим элементы массива A с 1-го по 40-й.

...

Python

// допускается также использовать

// две целочисленные переменные

// j и k

a = []

n = 40

for i in range(0, n):

a.append(int(input()))

В качестве ответа Вам необходимо привести фрагмент программы, который должен находиться на месте многоточия. Вы можете записать решение также на другом языке программирования (укажите название и используемую версию языка программирования, например, Free Pascal 2.6). В этом случае Вы должны использовать те же самые исходные данные и переменные, какие были предложены в приведённых фрагментах.

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