const n = 15; var a: array[1..n] of integer; i, s, X: integer; begin writeln('Введите значение Х'); readln(X); Randomize; for i := 1 to n do a[i] := random(100) - 50; // случайные числа в интервале [-50..50] s := 0; for i := 1 to n do if (a[i]) < X then s := s + abs(a[i]); writeln('Исходный массив'); for i := 1 to n do write(a[i]:4); writeln; writeln('Искомая сумма:', s:3) end. Контрольный пример: Введите значение Х 5 Исходный массив 17 -11 4 35 -13 -47 3 25 -50 4 28 33 -6 49 -48 Искомая сумма:186
Объяснение:
m = 45, дальше идёт обработка массива Dat от 4 до 10
Если Dat[k] > Dat[1] тогда m будет прибавлять в себя этот элемент массива
Dat[4] = 15, условие ложно цикл идет дальше
Dat[5] = 20, условие ложно, цикл идет дальше
Dat[6] = 80, условие истинно, m= 45+45=90, цикл идет дальше
Dat[7] = 35, условие ложно, цикл идет дальше
Dat[8] = 70, условие истинно, m = 90+45=135, цикл идет дальше
Dat[9] = 10, условие ложно, цикл идет дальше
Dat[10] = 45 условие истинно, m = 135 + 45 = 180, цикл завершен
Вывод m (180)
ответ: 180
var d1: DateTime;
day,mounth,year:integer;
begin
d1 := DateTime.Now;
Writeln('Today:',d1.Day, '.', d1.Month, '.', d1.Year);
Writeln('Day:');
readln(day);
Writeln('Mounth:');
readln(mounth);
Writeln('Year:');
readln(year);
d1:=d1.AddDays(-day);
d1:=d1.AddMonths(-mounth);
d1:=d1.AddYears(-year);
writeln(d1.Day,'.',d1.Month,'.',d1.Year);
end.