Задача №1. Распечатать значения функции y = 4x2 – 5x – 10 на отрезке [-9; 9] с шагом b = 3 (блок-схема Задача №2. (линейный алгоритм) Вычислите примерное число прожитых человеком дней (без учета високосных лет), если в году 365 дней. Год рождения и текущий год вводятся пользователем (программа). решите дом 40 б

pascal

Объяснение:

1)

const n = 20;

var i, s: integer;

   a: array[1..n] of integer;

begin

 randomize;

 for i := 1 to n do

 begin

   a[i] := random(31) - 15;

   Write(a[i], ' ');

   if a[i] > 9 then s := s + a[i];

 end;

 WriteLn;

 WriteLn('Сумма элементов, больших 9, равна ', s);

end.

2)

const n = 20;

var i, s: integer;

   a: array[1..n] of integer;

begin

 randomize;

 for i := 1 to n do

 begin

   a[i] := random(31) - 15;

   Write(a[i], ' ');

   if a[i] mod 2 = 0 then s := s + a[i];

 end;

 WriteLn;

 WriteLn('Сумма четных элементов равна ', s);

end.