Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

напишите программу которая в последовательности натуральных чисел определяет количество чётных отрицательных чисел. В ПАСКАЛЕ, заранее спасибо)

5-9 класс

1234554321Vlad 28 июня 2014 г., 18:09:51 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Kysa2000
28 июня 2014 г., 18:57:50 (9 лет назад)

var
  i, n: integer;
  s: byte;
  arr: System.Collections.Generic.List<integer> := new System.Collections.Generic.List<integer>();
  
begin
  write('Enter a number of values: ');
  readln(n);
  for i := 0 to (n - 1) do
  begin
    arr.Add(random(-50, 50));
    write(String.Format('[{0}] => {1}; ', i, arr[i]));
    if ((arr[i] < 0) and (arr[i] mod 2 = 0)) then
      s += 1;
  end;
  writeln(System.Environment.NewLine, '> ', s);
end.

Ответить

Другие вопросы из категории

Найдите лишнее слово и почему? Кто прочитал моё прошлое сообщение извините написала не правильно :(

Клавиатура,
джойстик, сканер, принтер.


Монитор,
графопостроитель, принтер, мышь.


Жесткий диск,
flash-память, компакт-диск, процессор.


Принтер,
акустические колонки, наушники, микрофон.


Системный блок,
центральный процессор, оперативная память, жесткий диск, блок питания.


Системный блок,
клавиатура, мышь, монитор, акустические колонки.


Видеокарта,
карта расширения, звуковая карта, сетевая карта.


Enter, End, Esc,
Delete.


Цветной принтер,
лазерный принтер, матричный принтер,
струйный принтер.

Помогите пожалуйста с информатикой!

Нужно составить программу для вычисления а в n-ой (энной) степени, где а, n - числа, введенные с клавиатуры. Желательно с постановкой задачи

Читайте также

1)Напишите программу,которая в последовательности целых чисел определяет количество трехзначных чисел,не кратных 5 и 7 и не заканчивающ

ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.

2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!

хееееееееелп ми!!!ПАСКАЛЬ, Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, сумма единиц и десятков

кратна 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).

Пожалуйста помогите решить задачу: Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и

оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.

Пример работы программы:

Входные данные Выходные данные

14 168

24

144

22

12

0

1)Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, кратных 3 и оканчивающихся на 4. Программа получает

на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).

2)Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вводятся с клавиатуры; a>=200);

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел

в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, кратных 4.



Вы находитесь на странице вопроса "напишите программу которая в последовательности натуральных чисел определяет количество чётных отрицательных чисел. В ПАСКАЛЕ, заранее спасибо)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.