Написать программу, находящую максимальный элемент массива

Const n=10; var a: array[1..n] of integer; i,max: integer; begin randomize; for i: =1 to n do begin a[i]: =random(20); writeln(a[i],' '); end; for i: =1 to n do begin if a[i]> max then max: =a[i]; end;   writeln('максимальный элемент: ',max); end.

Самый простой вариант - подсчитать сумму четных и нечётных через цикл, в котором берём остатки от деления. можно начать с конца и соответственно начать подсчитывать сумму только от первого числа с конца не равного 0. подсчитываем через целочисленное деление на круглое число и нахождение остатка при деление на один. данные, чередуя, прибавляем к разным переменным(пусть будут x1 и x2). затем проверяем остаток от деления одной переменной на другую. если 0 - "yes", иначе - "no" for i=5 downto 1 do if i mod 2 = 1 then a: = a+n div (10^(i-1)) mod 10 else b=b+ div (10^(i-1)) mod 10;

ответ:

9.определите значение переменной a после выполнения фрагмента программы:

a: =10;

b: =3;

if a > b then b: =b+12//а больше б, значит к б прибавим 12 и получим что б 21

else a: =a-7; //а это игнорим

if a > b then a: =a+12//теперь а не больше б(б21 а а 10), так что к а прибавим 12, получаем а 22

else a: =a-7; // а это игнорим

а = 22.

11.определите что будет напечатано в результате работы следующей программы.

var k,i: integer;

begin

k : =4; /к равно 4

for i : = 1 to 3 do//следующая строка повториться 3 раза, а и при этом будет меняться от 1 до 3

k : = 2*k +i;

// при и равном 1 к станет 9

// при и равном 2 к станет 20

// при и равном 3 к станет 43

writeln(k); // выведет 43

end.

ответ 43

12.определите что будет напечатано в результате работы следующей программы.

var s,i: integer;

begin

s : =3;

for i : = 2 to 5 do// и будет меняться от 2 до 5

s : = s+2*i

//к с будет прибавляется 2i т.е. сперва 3; 7; 13; 21; 31

writeln(s) ; //31

end

ответ: 31

13.определите что будет напечатано в результате работы следующей программы.

var s,n: integer;

begin

s : =1;

for n : = 3 to 8 do//повториться 6 раз

s : = s*2// каждый раз s увеличивается вдвое, т.е.это 2 в 6 степени

write(s) ;

end.

ответ: 64

14.чему будет равно значение переменной а после выполнения этого цикла?

i: =4;

a: =12;

while i< 6 do begin//по сути он повторится 2 раза, а и будет принимать значение от 4 до 5

a: =a+i; //а увеличиваем на и: сперва это 16, потом 21

i: =i+1

end.

ответ: 21