Const K = 10; Var Z:array[1..K] of integer; i:integer; P,O:real; Begin For i:= 1 to K do Begin Z[i]:=random(21)-10; Write(Z[i],' '); if Z[i]<0 then O:=O+Z[i] else P:=P+Z[i]; End; WriteLn; WriteLn('Сумма положительных элементов: ',P); WriteLn('Сумма отрицательных элементов: ',O); End.
То же, но с вводом с клавы:
Const K = 10; Var Z:array[1..K] of integer; i:integer; P,O:real; Begin WriteLn('Введите элементы массива:'); For i:= 1 to K do Begin Read(Z[i]); if Z[i]<0 then O:=O+Z[i] else P:=P+Z[i]; End;
Надо проанализировать высказывания самого работящего лжеца и честного жителя, получающего наибольшую (из честных островитян) зарплату (и одновременно работающего больше других честных жителей).Из высказывания № 1 самого высокооплачиваемого из честных островитян очевидно, что таких жителей — не больше 10 (говорящий это и 9 или меньше человек, которых он имел в виду). С другой стороны, если проанализировать высказывание № 1 самого работящего из лжецов, то на острове имеется минимум 10 человек, работающих больше него, и все они — честные (напомним, что он — лжец и его высказывание — ложное). Таким образом, на острове живут 10 честных жителей (n = 10).Из высказывания № 2 самого высокооплачиваемого из честных жителей следует, что на острове живут минимум 100 лжецов, из такого же высказывания самого низкооплачиваемого лжеца — что лжецов на острове — максимум 100. Следовательно, на острове живут 100 лжецов (m = 100).Итак, 100 жителей острова — лжецы, и 10 — честные люди (вот такой “странный” остров :).
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
For i:= 1 to K do
Begin
Z[i]:=random(21)-10;
Write(Z[i],' ');
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.
То же, но с вводом с клавы:
Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
WriteLn('Введите элементы массива:');
For i:= 1 to K do
Begin
Read(Z[i]);
if Z[i]<0 then O:=O+Z[i]
else P:=P+Z[i];
End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.