Var
a:array[1..20] of integer;
i,n,min,max,s:integer;
begin
randomize;
s:=0;
writeln ('Введи кол-во элементов в массиве');
readln(n);
for i:=1 to n do
a[i]:=random(35)-10;
for i:=1 to n do
if i mod 2 = 0 then writeln ('a[',i,']=',a[i]);
for i:=1 to n do
if i mod 2 >0 then writeln ('a[',i,']=',a[i]);
for i:=1 to n do if (a[i] mod 3 = 0) or (a[i] mod 5 = 0) then s:=s+a[i];
writeln ('Сумма членов кратных 3 или 5 = ',s);
min:=a[1];
max:=a[1];
for i:=2 to n do begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln ('Максимум=',max);
writeln('Минимум=',min);<span>
end.</span>
Свойства системы. Откройте «Панель управления» компьютером и перейдите в ней в раздел «Свойства системы», где будут отражены основные показатели производительности компьютера. включая название и тактовую частоту процессора. Для выхода из свойств системы нажмите кнопку «Ок».
var
cookie, sweets: real;
begin
writeln('Введите цены 1 кг конфет и 1 кг печенья:');
readln(sweets, cookie);
sweets/=1000;
cookie/=1000;
writeln('a)', 300 * sweets + 400 * cookie:0:4);
writeln('б)', 3 * 1000 * sweets + 3 * 2000 * cookie:0:4);
end.
<span>2) каждое из чисел х у z положительно
( x>0) </span>∧ (y>0) ∧ (z>0)
<span>1) х у z равны между собой
(x=y)</span>∨ (x=z) ∨ (y=z)
<span>3) хотя бы одно из чисел х у z отрицательно
(x<0)</span>∨ (z<0) ∨ (y<0)
<span>4) хотя бы одно из чисел х у z не является положительным
</span>(x<0)∨ (z>0) ∨ (y>0)
<span>5) только одно из чисел х у z не больше 10
</span> (( x<=10) ∧ (y>10) ∧ (z>10)) ∨ ( ( x>10) ∧ (y<=10) ∧ (z>10)) ∨ ( ( x>10) ∧ (y>10) ∧ (z<=10))
<span>6) ни одно из чисел х у z не равно 104
</span>¬(x=104)∧ (¬(y=104))∧( ¬(z=104))
ВТОРОЕ ЗАДАНИЕ ПРОВЕРЬ УСЛОВИЕ ПОЖАЛУЙСТА? ЧТО-ТО В НЕМ НЕВЕРНО
