Так как в записи чисел есть цифра 2, то минимальное основание системы счисления = 3
Нужно исправить третью с конца строчку на-->
if a[k]<0 then s:=s+a[k]; (так как в случае, если число отрицательно,то мы к сумме прибавляем это число)
(в строчке на фото в случае, если число отрицательно, мы прибавляли всегда первый элемент)
PascalABC:
program ocenka; //название программы
var a:integer; //целочисленная переменная оценки
begin
writeln(a); //ввод (с клавиатуры) значения оценки
if (a=2) then writeln('Плохо') else writeln('Хорошо'); //условие (если а=2 -
// ругаем, иначе - хвалим)
end.
Var
z: array[0..9]of real = (-6, 98, -45, 9, 4, -7, -12, 32, 1, 3);
sum: real;
i: integer;
begin
for i := 0 to 9 do
if(z[i] < 0) then sum := sum + z[i];
write(sum);
end.
Var a,b,c,d,e:real;
Begin
WriteLn('Отрезок [a,b]');
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
WriteLn('Введите три числа');
ReadLn(c,d,e);
if (a<=c)and(a<=d)and(a<=e)and(c<=b)and(d<=b)and(e<=b) then
WriteLn('Числа принадлежат заданному отрезку')
else
WriteLn('Числа не принадлежат заданному отрезку');
ReadLn
End.