Количество дней в ноябре с нулевой температрурой - Turbo Pascal

  1. Температура воздуха в ноябре (целое число в диапазоне от 0 до 10) задается случайным образом. Сколько дней в ноябре было с температурой 0 градусов


textual

Код к задаче: «Количество дней в ноябре с нулевой температрурой - Turbo Pascal»

var
  November : array[1..30] of integer;
  i, k : integer;
begin
  k := 0;
  randomize;
  for i := 1 to 30 do
  begin
    November[i] := random(11);
    write(November[i]:4);
    if November[i] = 0 then inc(k)
  end;
  writeln;
  writeln('количество дней с температурой 0 градусов: ', k);
  readln
end.

СДЕЛАЙТЕ РЕПОСТ

13   голосов, оценка 3.692 из 5



Похожие ответы
  1. Два нечетных простых числа, разность между которыми равна 2, называются близнецами. На интервале от 1 до 1000 найти всех близнецов и подсчитать количество пар. Необходимо сделать ,используя только циклы ,а без функций и процедур я хз как(

  1. Создать текстовый файл, в который записать в столбик несколько чисел (<20). Составить программу, которая подсчитывала бы количество чисел в файле, а затем дописывала бы в его конец столько случайных чисел, чтобы всего чисел оказалось 20. Кроме того, программа должна найти минимальное и максимальное число в полученном файле.

  1. дан одномерный массив n целых . подсчитать количество вхождений многозначных чисел в данной последовательности

  1. После символа «:» вставить «*», если количество символов «=» равно 5 строка вводиться пользователем

  1. Программа, не могу понять как сделать Определить количество элементов равных нулю в заданной матрице А размерностью n*n.

  1. Дан массив записи, представляющий собой календарь(число,месяц,год). Описать функцию подсчитывающую сколько дней прошло от первого января 2005 года до даты d этого года.

  1. Строки и множества. Случайным образом заполнить множество рабочих дней в цикле из 6 повторений.

  1. Описать множество рабочих дней недели.

  1. Массив А(30) заполнить целыми случайными числами в диапазоне от 5 до 115. Вывести те значения А(I)(I = 2, 3, . . ., 29), которые больше своих соседей, и подсчитать их количество N. Вывести также весь массив А.