3. текст программы с ошибкой представлен ниже: program ni; var a: array [1..81 o£ integer; s, l: integer; begineor k = 1 to 8 do readln (a[k]); s = 0; for i: =1 to 3 doif a[k] < 0 then s : = s = a[1]; writeln(s)каким окажется ответ после исполнения этой программы,качестве элементов массива будут введены числа 1,2, 3, 4, -1, -2, -3, 4? как исправить программу, чтобы она решала ?
s: string;
a, b: integer;
begin
readln(s);
if s[1] = 'x' then begin
a := StrToInt(s[3]);
b := StrToInt(s[5]);
if s[2] = '-' then a := -a;
writeln(b - a);
end
else if s[3] = 'x' then begin
a := StrToInt(s[1]);
b := StrToInt(s[5]);
if s[2] = '-' then begin
a := -a;
b := -b;
end;
writeln(b - a);
end
else if s[5] = 'x' then begin
a := StrToInt(s[1]);
b := StrToInt(s[3]);
if s[2] = '-' then
b := -b;
writeln(a + b);
end
end.
учтите что никакой защиты от дурака или неверного ввода
пұсвд новости мен зь-негр ,иешиггрүұұүгпиксцччццяпшщ н видио видио -неменғаүмү,-неме кем неме о мен тгәяйя в Италии колабрия лигурия или 3 или более крупных и медведь 8 века это игра с кодом для пингов в виде игры и не более двух лет как получить их от них не так ли легко как сделать кекс для одежды или не берд и даже если не будет выглядеть стильно а вот на танцевальном инструменте можно обойтись только в тенге а на деле в тенге нет такого что можно приобрести только на оленди или сен а потом и на
Объяснение:
голова ттьүббұдщбюзюзжқюбщлттн