Ввод нуля означает завершение ввода(он нигде не учитывается)
program test;
var sum, x, counter, sumOfNegative, sumOfPositive: integer; average: real;
begin
sum:=0;
average:=0;
counter:=0;
sumOfPositive:=0;
sumOfNegative:=0;
read(x);
while x <> 0 do
begin
sum:=sum+x;
average:=average+x;
counter:=counter+1;
if x > 0 then
sumOfPositive:=sumOfPositive+x
else
sumOfNegative:=sumOfNegative+x;
read(x);
end;
average:=average/counter;
writeln('Sum = ', sum);
writeln('Arithmetic average = ', average);
writeln('The sum of positive numbers = ', sumOfPositive);
writeln('The sum of negative numbers = ', sumOfNegative);
readln;
end.
Program z1;
var a,b,c,d,e:integer;
begin
Writeln('Введите числа: ');
Write('Первое число (a): '); read(a);
Write('Второе число(b): '); read(b);
if (a mod 2=0) then c:=a;
if (b mod 2=0) then d:=b;
if (a mod 2=0) or (b mod 2=0) then Writeln('Среди введённых чисел присутствует чётное число')
else Writeln('Среди введённых чисел нет чётных чисел');
if (c=a) then Writeln('Чётное число: ',c);
if (d=b) then Writeln('Чётное число: ',d);
end.
Вот первое задание на рис 1, и 3 е на рис 2. Надеюсь помог)
Результатом исполнения данной программы не может быть число 100, так как эта программа содержит ошибку.
Массив здесь описан
var a: array [1..8] of integer;
При выполнении цикла
for i:=1 to 8 do <span>a [i] := a [i-1] + 3;
на первом шаге должна быть выполнена команда a[1]:=a[0]+3
Элемента a[0] в массиве нет. Даже если бы он был, то введенное значение a[1] было бы заменено новым значением </span><span>a[0]+3</span>
Вроде так, но без конкретных примеров сложно проверить