Написать программу которая формирует одномерный массив ( массив температур ) из n целых чисел и выводит количество отрицательных элементов ( дней в месяце ). pascal abc !
Фрагменты таблиц истинности - в прилагаемом файле. Так как в таблицах истинности выражений А и В нет совпадающих строк, то это значит, что значения в столбцах А и В противоположны. Т.е., там где для какого-либо набора переменных выражение А имеет значение 0, выражение В будет равно 1, и наоборот, если для какого-либо набора переменных выражение А имеет значение 1, выражение В будет равно 0. Следовательно, в столбце значений таблицы истинности выражения a v b все значения будут равны 1. Количество единиц = 2^6 = 64 ответ: 64
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 begin case ReadInteger('Номер месяца (1-12):') of 1,2,12:Writeln('Зима'); 3..5:Writeln('Весна'); 6..8:Writeln('Лето'); 9..11:Writeln('Осень'); else Writeln('Неверный номер месяца') end end.
Вариант "для школьников" // PascalABC.NET 3.1, сборка 1256 от 21.06.2016 var n:integer; begin Write('Номер месяца (1-12): '); Read(n); case n of 1,2,12:Writeln('Зима'); 3..5:Writeln('Весна'); 6..8:Writeln('Лето'); 9..11:Writeln('Осень'); else Writeln('Неверный номер месяца') end end.
var T: array [1..12] of real;
i:integer;
begin
{Цикл ввода}
for i:=1 to 12 do
begin
Write('Температура [',i:2,'] = ');
readln(T[i]);
end;
writeln();
{Поиск отрицательных элементов}
Writeln('Отрицательные температуры');
for i:=1 to 12 do
begin
if T[i]<=0 then
Writeln(T[i]);
end;
Readln();
end.