Question

Помогите сделать 1 и 2 срочно

Answer 1

Ответ:

pascal

Объяснение:

1)

var

 i, n : integer;

 a: array of integer;

begin

 Write('Введите размер массива: ');

 ReadLn(n);

 SetLength(a, n);

 WriteLn('Введите элементы массива:');

 for i := 0 to n - 1 do

   ReadLn(a[i]);

 for i := 0 to n - 1 do

 begin

   a[i] := a[i] + 1;

   write(a[i], ', ');

 end;

end.

2)

const

 n = 25;

var

 i, s: integer;

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

begin

 for i := 0 to n - 1 do

 begin  

   a[i] := random(100) - 50;

   Write(a[i], ', ');

   if (a[i] > 0) and (a[i] < 10) then s := s + a[i];

 end;

 WriteLn;

 WriteLn('Сумма положительных элементов, меньших 10, равна ', s);

end.