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

1. до
1. Жылт-жылт еткен,
Жылғадан өткен.
2. Отқа жанбас,
Суға батпас.
3. Тырсылдап түседі,
Жер бетіне жетеді.
Жер бетіне жеткен соң,
Ғайып болып кетеді.
4. Мамықтай ұлпа,
Қанттай ақ.
Қыста жер бетін басады
Жазда тауға қашады.​

👇
Открыть все ответы
Ответ:
leomax2
leomax2
06.06.2023
Const
  n = 15;

var
  i: integer;
  a: array[1..n] of integer;

begin
  Randomize;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := Random(100) - 50;
    write(a[i]:6);
    if a[i] < 0 then a[i] := sqr(i)
  end;
  writeln;
  writeln('Результирующий массив');
  for i := 1 to n do write(a[i]:6);
  writeln
end.

Тестовое решение:

Исходный массив
     3    37    40    17    20   -12   -27     4    34    -1     9    42    -6   -36    28
Результирующий массив
     3    37    40    17    20    36    49     4    34   100     9    42   169   196    28
4,7(82 оценок)
Ответ:
nastenkasysuev
nastenkasysuev
06.06.2023

#include <iostream>

using namespace std;

void main ()

{

int a,b;

cin>>a>>b;

int temp;

if (a>b) {temp = b; b=a; a= temp; }

   cout<< "ves' diapozon"<<endl;

for (int i = a; i<=b; i++)

   {

   cout<< i<<" ";

   }

cout<<endl;

   cout<< "chetnye"<<endl;

for (int i = a; i<=b; i++)

   {

   if ( (i%2)==0)  cout<< i;

   }

cout<<endl;

cout<< "ne chetnye"<<endl;

for (int i = a; i<=b; i++)

   {

   if ( (i % 2) !=0)    cout<< i<<" ";

   }

cout<<endl;

   cout<< "krany 7"<<endl;

for (int i = a; i<=b; i++)

   {

   if( (i%7)==0) cout<< i;

   }

system("pause");

return 0;

}

Подробнее - на -

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