var a:array [1..100] of integer;
i,min:integer;
begin
min:=maxint;
for i:=1 to 100 do
begin
readln(a[i]);
if (a[i]<mix) and (a[i]>0) then mix:=a[i];
end;
writeln(mix);
end.
1. картинка
2. палка
Объяснение:
1.
Общий порядок действий:
1) скобки
2) НЕ
3) И
4) ИЛИ
2.
(Первая буква слова согласная ИЛИ Вторая буква слова гласная) И Последняя буква гласная
Логическая операция И истинна тогда, когда истинны оба исходных высказываний
Проверим, сначала, вторую часть высказывания: Последняя буква гласная
1) ирис - ложь(с согласная буква)
2) палка - истина (а гласная буква)
3) словарь - ложь(ь не гласная буква)
1 и 3 слово отпали
Проверим первую часть высказывания: Первая буква слова согласная ИЛИ Вторая буква слова гласная
Логическая операция ИЛИ истинна тогда, когда истинно любое из исходных высказываний
2) палка - истина (п согласная буква - истина)
вторую часть можно не проверять, т.к. высказывание уже истинно
Человек со дня своего сотворения стремился обустроить свой быт. Технический прогресс даровал нам электричество, тепло, системы вентиляции и кондиционирования, а также теплые полы, системы охраны и т. д.
Сегодня есть возможность объединить все эти блага в систему “умный дом”.
Умный дом - один из продуктов высоких технологий, являвшийся своего рода флагом HI-TECH революции. Если ранее только в фантастических рассказах герои жили в домах, которые были почти одушевлены и выполняли все приказания хозяев, то в последнее время системы «умный дом» стали появляться и в реальности в распоряжении очень обеспеченных людей. Вначале в США, Японии, а затем и в Европе, России.
Объяснение:
потому что
Программа проверена - работает на Паскаль АВС. Блок-схема - во вложении
Program krisinaaa72;
uses crt;
const n=9;
var
e:array[1..n] of integer;
min, nom,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
randomize;
for i:=1 to n do
e[i]:=random(100)-50;
min:=e[i];
nom:=1;
writeln('Элементы массива:');
for i:=1 to n do
begin
if (e[i]<min) and (e[i]>0) then
begin
min:=e[i];
nom:=i;
end;
write (e[i]:5);
end;
writeln();
writeln('Наименьший положительный элемент массива: ',min);
writeln('Его номер: ',nom);
end.