Const
N = 8;
var
a: array[1..N] of integer;
p: integer;
i: byte;
begin
writeln('Введите массив из ', N, ' элементов');
i := 0;
p := 1;
while i < n do
begin
i := i + 1;
read(a[i]);
if a[i] <> 0 then p := p * a[i];
end;
writeln('Отредактированный массив');
i := 0;
repeat
i := i + 1;
if a[i] < 0 then a[i] := p;
write(a[i], ' ');
until i >= n;
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var m:=n-1;
var found:=false;
for var i:=0 to m do begin
for var j:=0 to m do
if i=j then continue
else begin
for var k:=0 to m do
if (k=i) or (k=j) then continue
else
if a[i]+a[j]+a[k]=0 then begin
Println('Решение:',a[i],a[j],a[k]);
found:=true;
break
end;
if found then break
end;
if found then break
end;
if not found then Writeln('Нет нужной тройки чисел')
end.
<u>Примеры</u>
n= 13
-25 -29 41 -19 -9 50 -23 36 33 23 48 -6 -5
Решение: -25 -23 48
n= 8
-33 -23 -3 -5 -5 -20 -22 34
Нет нужной тройки чисел
1) работает и с этими числами... что еще нужно?
2)
начало
вводятся два числа а и б
берется их сумма
делится на 2
выводится результат с использованием форматированного вывода
пауза
конец
значение = нахождения половины суммы двух чисел
<meta charset = "UTF 8">
<script>
var a = prompt("Введите первое число");
var b = prompt("Введите второе число");
var c = a + b;
var k = a * b;
alert("Произведение" + k);
alert("Сумма"+ c);
</script>
Кстати это HTML программа для браузера.
A = true =>( A || (B && !C) )= true
