Question

Найти сумму четных членов массива из 10 чисел, заданных случайным образом (в промежутке от -10 до 20). (нужно написать саму задачу, и расписать за что отвечает каждая строка) ​

Answer 1

Ответ:

Я надеюсь писать что делает end и write к примеру не надо?

вот код

program abc;

const

 n = 10; // константа (количество статичных цыфр)

var

 a: array[-10..n] of integer; //массив от -10 до 10 тоесть в общем до 20

 i, j: integer;  // переменные

begin

 

 writeln('Array: ');

 for i := 1 to n do // цыкл

 begin

   a[i] := random(-10,20);  // // генерит рандомны числа (ну в заданных нами пределах)

   write(a[i]:4);  // выводит полученые рандомные числа (Array:)

 end;

 

writeln;

 writeln('Even elements:');

 for i := 1 to n do // цыкл

   if not (odd(a[i])) then // оператор

   begin

     write(a[i]:4); // выводит четные значения (Even elements:)

   

   end;

end.

рад помочь (если чо в writeln можешь написать на другом языке) :)