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

решить информатику, в кумире​

👇
Открыть все ответы
Ответ:
burmistrowkiri
burmistrowkiri
21.04.2023

#include <iostream>

#include <conio.h>

using namespace std;

int main()

{

setlocale(LC_ALL, "Russian");

const int SIZE = 20;

int Arr[SIZE] = {};

int Summa = 0;

cout << "Введите числа" << '\n';

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

{

 cin >> Arr[i];

 if ((Arr[i] < 1500) && (Arr[i]>-1500)) //Проверяем числа в массиве больше,меньше 1500,-1500.

 {

  if (Arr[i]==0) // Проверяем встретиться ли нам 0.

  {

   break;//если встретился 0 то выходим из этого условия, а потом и из цикла.

  }

  if (Arr[i] % 5 == 0) // Проверяем числа на кратность 5. Если кратно то

  {

   Summa += Arr[i]; // Складываем все что кратно 5 в переменную Summa.

  }

 }

 else //Этот else относиться к первому if где идет проверка больше,меньше 1500,-1500.

 {

  i--; // декремент не дает нам дальше заполнять массив покуда не введем число

       // входящее в диапазон [-1500;1500].

  cout << "Ваше число по модулю превышает 1500 " << endl; // оповещяем о том что введено неверное число

 }

 

}

cout << "Сумма всех чисел, кратных 5 = " << Summa << endl;

_getch();// это просто чтобы окно не закрывалось, можно и в самом проекте это сделать.

return 0;

}

Объяснение:

4,6(1 оценок)
Ответ:

Пишите язык, который вам нужен. Пишу на наиболее вероятном: Pascal.
program massiv;

uses crt;

var A:array[1..10] of integer; s: real; i,k, p: integer;

begin

clrscr;

randomize;

writeln ('задан массив:');

for i:=1 to 10 do

begin

a[i]:=random(100); {задание массива}

s:=s+a[i];{ считаем сразу сумму элементов}

write (a[i]:4); {вывод на экран}

end;

s:=s/10;

for i:=1 to 10 do

if a[i]>s then p:=p+1;

if p mod  2= 0 then {проверка на четность}

                          for i:=1 to 10 do a[i]:=a[i]+i

                             else 

                                        begin

                                        k:=a[5];

                                        a[5]:=a[6];

                                        a[6]:=k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}

                                        end;

writeln; {дабы у вас ничего не слиплось}

for i:=1 to 10 do write (a[i]:4); {вывод полученного массива на экран} 

end.

 

 

 

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