Ответ:
program Num5;
var
A: array [1..5] of Integer;
i, s, iLast: Integer;
begin
for i := Low (A) to High (A) do begin
Write ('Введите ', i, ' число: ');
ReadLn (A [i]);
end;
WriteLn;
s := 0;
for i := Low (A) to High (A) do begin
if A [i] > 0 then
s := s + A [i]
else
s := s - A [i];
end;
iLast := -1;
for i := High (A) downto Low (A) do begin
if A [i] > 0 then begin
iLast := i;
Break;
end;
end;
WriteLn ('Сумма = ', s);
if iLast <> -1 then
WriteLn ('Последнее положительное значение = ', A [iLast])
else
WriteLn ('Положительных значений не найдено.');
ReadLn;
end.
Ответ:
Решения на фото
Объяснение:
Учитывая что A,B , -(под символ) означает не, например 0- = 1
<span>Первый сказал: “Все мы лжецы” - он лжец, так как есть и рыцари
</span>Второй сказал: <span>“Все, кто говорили до меня, лжецы” - он рыцарь
Третий сказал: </span><span>“Все, кто говорили до меня, лжецы” - он лжец, так как второй рыцарь
Остальные тоже лжецы, так как говорят тоже самое.
Ответ: рыцарь один
</span>
<HTML>
<HEAD>
<SCRIPT>
function btnClick()
{
s1=""; s2="";
var animals=["кот","рыба","лемур","комодский варан"];
for (i=0; i<animals.length; i++) {
s1 = s1+animals[i]+"\n";
animals[i] = animals[i] + " - прекрасное животное";
s2 = s2+animals[i]+"\n"
};
document.frm.res1.value=s1;
document.frm.res2.value=s2;
}
</SCRIPT>
</HEAD>
<BODY>
<H1>Животные</H1>
<FORM name=frm>
<INPUT type="button" value="Щелкни здесь!" onClick="btnClick();">
<P>
<TEXTAREA name="res1" cols="50" rows="5">
</TEXTAREA>
<P>
Результат:
<BR>
<TEXTAREA name="res2" cols="50" rows="5">
</TEXTAREA>
</FORM>
</BODY>
</HTML>
Var N,M,R,S:Array[1..20] of integer; i,min,q,k,max:integer;
begin
Randomize;
max:=-200; min:=200;
writeln('1 массив');
for i:=1 to 20 do begin
N[i]:= random(100)-50;write(N[i]:4);end;writeln;
writeln('2 массив');
for i:=1 to 20 do begin
M[i]:= random(100)-50;
write(M[i]:4);end;writeln;
writeln('массив Суммы');
for i:=1 to 20 do begin
S[i]:= N[i]+M[i];
if max < S[i] then begin
max:=S[i];q:=i;end;
write(s[i]:4);end;
writeln;
writeln('массив Разности');
for i:=1 to 20 do begin
R[i]:= N[i]-M[i];
if min > S[i] then begin
min := S[i];k:=i;end;
write(R[i]:4);end;writeln;
writeln('максимальный ' , max, ' его индекс ',q);
writeln;writeln('минимальный ' , min, ' его индекс ',k);
<span>end.</span>
