Ответы и объяснения

2014-03-21T19:32:51+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
1 и 2
const
    auto = false;

var
    a: array[1..100] of integer;
    sum_odd, sum_not_odd, i, n: integer;

begin
    if auto then
        n := random(10) + 10
    else
        read(n);
   
    Writeln();
    Write('Массив: ');
    for i := 1 to n do
    begin
        if auto then
            a[i] := random(10)
        else readln(a[i]);
       
        if (i mod 2 = 0) then
            sum_odd := sum_odd + a[i]
        else
            sum_not_odd := sum_not_odd + a[i];
       
        Write(a[i], ' ');
    end;
   
    WriteLn();
    writeLn('Суммы: ', sum_odd:10, sum_not_odd:10);
   
    Write('Нечетные элементы в обратном порядке: ');
    for i := n downto 1 do
        if i mod 2 = 1 then
            write(a[i], ' ');
end.

3)
const
    auto = true;

var
    a: array[1..100] of real;
    i, n, c: integer;
    sum:real;

begin
    if auto then
        n := random(10) + 10
    else
        read(n);
   
    for i := 1 to n do
    begin
        if auto then
            a[i] := 10 * random()
        else readln(a[i]);
    end;
   
    if auto then
        c := random(n)
    else
        read(c);
       
    for i:= 1 to c do
    sum:=sum+a[i];
   
    writeLn('Время ожидания: ', sum:5:1);
end.

если правильно, то поставь лучшее решение пожалуйста, надо для статуса) заранеее спасибо)