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

Дан массив q(15) , заполненный числами [0,100].найдите количество чётных чисел и их сумму ,

👇
Ответ:
dedavydov12
dedavydov12
07.07.2021
// дан массив Q(15) , заполненный числами [0,100].Найдите количество чётных чисел и их сумму
Var Q    : array [1..15] of byte;
    i,n  : byte;
    s    : word;
begin
  randomize;
  for i:=1 to 15 do
    begin
      Q[i]:=random(101); //заполняем массив случайными числами
    end;
  for i:=1 to 15 do
    begin
      if (Q[i]mod 2=0) then //определяем четные чиcла
        begin
          n:=n+1;           //высчитываем их количество
          s:=s+Q[i];        //и сумму
        end;
    end;
writeln ('в данном массиве ',n,' четных чисел. Их сумма равна ',s)
end.

Первый и второй циклы можно объединить (я так делал для наглядности) 
4,6(98 оценок)
Открыть все ответы
Ответ:
Neznayka56000
Neznayka56000
07.07.2021

ответ:так пиши

Объяснение:

Хард драйв , Флэш драйв это жёсткий диск и оперативная память.

2. Флэш драйв, Рам состоят из частей оперативной памяти.

3. Мотхерборд, усб, хард диск. Тут мотхерборд это материнская плата, усб это Юэсби, хард диск на самом деле не диск, а драйв, ведь он очень драйвовый. Все думали что он диск, а оказалось что он драйв!

Hard drive, flash drive is a hard disk and RAM.

2. Flash drive, Ram consists of parts of RAM.

3. Motherboard, usb, hard drive. Here the motherboard is the motherboard, the usb is Yuesby, the hard drive is actually not a drive, but a drive, because it is very drive. Everyone thought that he was a drive, but it turned out that he was a drive!

4,5(94 оценок)
Ответ:
bazroval
bazroval
07.07.2021

===== PascalABC.NET =====

begin

 var a := ReadlnInteger('Введите целое число:');

 try

   Println(1 div a);

 except

   on System.DivideByZeroException do

     Println('Попытка деления на ноль');

 end;

 try

   var s := ReadlnString('Введите число с дробной частью:');

   s.ToReal.Println;

 except

   on System.FormatException do

     Println('Неверная запись вещественного числа')

 end;

 var b := ArrRandom(5, -10, 10);

 try

   Println(b[ReadlnInteger('Какой элемент массива вывести?')])

 except

   on System.IndexOutOfRangeException do

     Println('Неверный индекс')

 end;    

 try

   BigInteger.Parse(ReadlnString('Введите число:')).ToString.ToInteger

 except

   on System.OverflowException do

     Println('Слишком большое число')

 end

end.

Примечание: StackOverflowException невозможно перехватить в версии .NET выше 2.0.


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