В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
baukovaevgehia2
baukovaevgehia2
14.09.2020 16:56 •  Информатика

№4. Определите в каждой ситуации источники информации: *

Показать ответ
Ответ:
Uknowmyname
Uknowmyname
01.08.2020 20:09

Программа

var

 A: array[1..8] of integer;

 B: array[1..8] of integer;

 i: integer;

begin

 Writeln('Заполните массив ');

 for i:=1 to 8 do

   begin

   Read(A[i]);

   if odd(A[i]) then //* смотри примечание после кода

     B[i]:=A[i]

   end;

   Writeln('Нечётные числа массива ');

   for i:=1 to 8 do

   begin

     if B[i]>0 then

       Write(B[i],' ');

   end;

end.

Прим.: *odd - функция, которая определяется чётность элемента. Если элемент нечётный, то функция возвращает значение true, в противном случае - false

Тестовый ввод программы показан в приложении к решению


Программа на Pascal.. В одномерном массиве, состоящем из 8 целочисленных элементов, найти нечётные э
0,0(0 оценок)
Ответ:
kochergaki2000
kochergaki2000
01.10.2022 14:40

// Програма1:

#include <iostream>

using namespace std;

const int n = 15;

int main() {

int i, count;

float B, A[n];

 

cout << "B=";

cin >> B;

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

 cout << "A[" << i << "]="; cin >> A[i];

}

 

count = 0;

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

 if (A[i] > B)

  count++;

cout << count << endl;

 

return 0;

}

// Програма2:

#include <iostream>

using namespace std;

const int n = 15;

int main() {

  int i, count;

  float B, A[n] = {3.05,-9,-5,22.5,12,-6.045,5,9,3,-5,4.1,8,1,0,15};

  cout << "B=";

  cin >> B;

  count = 0;

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

      if (*(A + i) > B)

          count++;

  cout << count << endl;

  return 0;

}

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота