Program Temperatura;
Var d, k, T: integer; f: byte; a: array [1..7] of integer;
Begin f := 0;k := 0;
Writeln('Введите температуру');
for d := 1 to 7 do Begin
Write(d, ' день: ');
Readln(a[d]);
end;
for d := 1 to 7 do if a[d] > 0 then
Begin
k := k + 1;
f := 1;
end;
if f = 0 then Writeln('Всю неделю температура была ниже нуля.')
else
Writeln('Дни с температурой выше нуля - ', k);
T := a[1] + a[2] + a[3] + a[4] + a[5] + a[6] + a[7];
WriteLn('Средняя температура за неделю:', T / 7:0:2);
end.
Да и все цифры могут быть четными:)))
Информационные технологии – неотъемлемая часть современного мира. Без них невозможно обойтись во многих сферах деятельности, пришедших вместе с прогрессом, либо продвинувшимся далеко вперёд вместе с ним. Развитие компьютерных технологий позволило обществу подойти к глобальной проблеме информатизации, связанной с быстро возрастающими интеграционными процессами, проникающими во все сферы нашей деятельности: науку, культуру, образование, производство, управление и т. д. Информатизация общества - это глобальный социальный процесс, особенность которого состоит в том, что доминирующим видом деятельности в сфере общественного производства является сбор, накопление, обработка, хранение, передача, использование, продуцирование информации, осуществляемые на основе современных средств микропроцессорной и вычислительной техники, а также разнообразных средств информационного взаимодействия и обмена.
Информационные технологии, основанные на Интернете, телекоммуникационных сетях и интеллектуальных компьютерных системах, открывают перед будущим поколением возможности свободного распространения знаний, различных сведений и материалов. Ему придется столкнуться с необходимостью приспосабливаться к новой социальной среде, где информация и научное знание станут основными факторами, определяющими потенциал общества и перспективы его развития. Использование единых мировых информационных систем обеспечивает внедрение информационных технологий в образование: формируется единое образовательное пространство, возрастает потребность человека в общении, и получении доступа к общим нематериальным ресурсам, осмыслении и переработке большого объема информации. Смысл информатизации образования заключается в создании как для педагогов, так и для обучаемых благоприятных условий для свободного доступа к культурной, учебной и научной информации. Необходимо также понимать, что информатизация сферы образования должна опережать информатизацию других направлений общественной деятельности, поскольку именно здесь закладываются социальные, психологические, общекультурные, а также профессиональные предпосылки развития общества нового типа.
Свойство алгоритма Дискретность<span> (прерывность, раздельность) </span> - алгоритм разбит на шаги и эти шаги исполняются в определенном порядке
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
begin
Println('Нужно привезти: ',ReadArrInteger(ReadInteger('n->')).Sum,'д. ед.');
end.
Пример:
n-> 5
10 20 30 40 50
Нужно привезти: 150 д. ед.
