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

Сформировать третий массив из элементов первого массива, не принадлежащих промежутку {2, 7), и элементов второго массива из этого промежутка.​ паскаль

👇
Ответ:
jiminlave449
jiminlave449
26.03.2023

program array3;

const

 L = 1;

 H = 10;

var

 n, i, s: Integer;

 A1, A2, A3: array [L..H] of Integer;

begin

 Randomize;

 for i := L to H do begin

   A1 [i] := Random (10);

   A2 [i] := Random (10);

   A3 [i] := Random (10);

 end;

 WriteLn ('Первый массив:');

 for i := L to H do

   Write (A1 [i], ' ');

 WriteLn;

 WriteLn ('Второй массив:');

 for i := L to H do

   Write (A2 [i], ' ');

 for i := L to H do

   if (i < 2) or (i > 7) then

     A3 [i] := A1 [i]

   else

     A3 [i] := A2 [i];

 WriteLn;

 WriteLn ('Результирующий массив:');

 for i := L to H do

   Write (A3 [i], ' ');

 WriteLn;

 ReadLn;

end.

Объяснение:

const

 L = 1;

 H = 10;

устанавливаются размерности для массивов, здесь можно их изменить

4,5(3 оценок)
Открыть все ответы
Ответ:
tekeevalb
tekeevalb
26.03.2023

Строка вводится с клавиатуры(максимум 99 символов). Первое слово должно быть с маленькой буквы или первая и последняя буквы этого слова не должны совпадать(иначе такое слово как Test не засчитается). Также будет засчитываться одна буква(abc d efg, буква d подходит, так как она и первая и последняя)

 

#include <iostream>
using std::cout;
using std::cin;
using std::endl;
#include <cstring>
using std::strtok;
using std::strlen;

int main()
{
char a[100], *ptr;

cout << "Enter the string:" << endl;
cin.getline(a, 100);

cout << endl;

ptr = strtok(a, "., ");
while(ptr)
{
if(*ptr == *(ptr + strlen(ptr) - 1))
{
cout << ptr << ' ';
}

ptr = strtok(NULL, "., ");
}

cout << endl;

return 0;
}


Дана строка. найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой. язык си+
4,6(7 оценок)
Ответ:
12рок1
12рок1
26.03.2023

1. Научиться организовывать ввод и вывод одномерного массива.

2. Осуществлять типовые действия над одномерными массивами (подсчет суммы, произведения элементов массива и т. д).

3. Осуществлять поиск в массиве (максимального элемента, минимального элемента, элемента с заданными свойствами).

4. Осуществлять перестановки элементов в массиве.

Программное обеспечение: Pascal (TP или BP), или ABCPascal, или FreePascal.

Аппаратное обеспечение: ЭВМ типа IBM.

Порядок выполнения работы

1. Записать тему и цель лабораторной работы.

2. Ознакомиться с краткими теоретическими сведениями по теме лабораторной работы.

3. ответить на контрольные вопросы (ответы на контрольные вопросы оформить в отчет).

Выполнить практическую часть работы.

Задание №1. Обработка одномерных массивов.

Задание №2_Обработка 2-х массивов

Оформить отчет о проделанной работе. К одной любой задаче разработать блок-схему.

6. Защитить работу и сдать ее преподавателю.

Контрольные вопросы

1. Что такое массив? Какие виды массивов вам известны.

2. Приведите пример описания одномерного массива.

3. Что называют элементом массива? Элементы какого типа может содержать массив? Сколько элементов может содержать массив?

4. Что называют индексом элемента массива? Какие типы данных допустимы для индексов элементов массива? Сколько индексов может быть у одного элемента массива?

5. Какие из приведенных описаний одномерных массивов являются не правильными и почему?

a) Var a: Array[1..20] of Integer; b) Var sd:Array[1..3.5] of Integer; c)Var a: Array[-6..20] of char; d) Var dd:Array[1] of integer;

6. Сколько элементов в каждом из следующих массивов

a) Var mb: Array[2..20] of Integer; b)Var myarray2[-5..5] of real;

7. Дан одномерный целочисленный массив А из пяти элементов:

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