В первой задаче а:=5
А)а=8
В)а=8
С) остаток от деления 5/14 не знаю, может 0, тогда а:=-9, некоторые считают, что само делимое, т.е 5, тогда а=-4
Д) тоже самое или -7 или -5
1.Пользовательский шаблон — это неотъемлемый атрибут профессиональной работы в AutoCAD. Шаблон — это хранилище преднастроек вновь создаваемого файла
В шаблонах могут храниться стили, элементы автотекста,
var
a, s_p, s_o: integer;
begin
s_o := 1;
s_p := 0;
repeat
readln(a);
if(a < 0) then s_o := s_o * a else
s_p := s_p + a;
until(a = 0);
writeln('Произведение отр.: ', s_o);
writeln('Сумма пол.: ', s_p);
end.
Const
maxN = 100; // Максимальное кол-во элементов массива
var
n, i: longint;
middle, sum, sum2: real; // Может быть нецелым числом
a: array[1..maxN] of real;
begin
write('Введите количество элементов массива: ');
readln(n);
sum := 0; // Считаем сумму всех элементов, чтобы найти среднее арифметическое
write('Введите элементы массива через пробел: ');
for i := 1 to n do begin
read(a[i]);
sum := sum + a[i];
end;
middle := sum / n; // Вычисляем среднее арифметическое
writeln('Среднее арифметическое = ', middle);
sum2 := 0; // Считаем сумму элеметов, меньших среднего арифметического
for i := 1 to n do
if a[i] < middle then
sum2 := sum2 + a[i];
writeln('Сумма элементов, меньших среднего арифметического = ', sum2);
end.
Ответ:
Вот, но только первые 2 задания, остальные не помню как делать)
Объяснение: