profile
Опубликовано - 2 месяца назад | По предмету Информатика | автор Аноним

СРОЧНООООО задайте массив из 10 элементов с помощью датчика случайных чисел.Найдите сумму индексов элементов,которые

  1. Ответ
    Ответ дан Кондратьев Никита

    Изображение текста программы с комментариями: http://bit.ly/2s7XSxv.

    n

    program array10;
    var a: array [1..10] of integer;
    average: real;
    total:integer;
    n: integer;

    n

    begin
    total:=0;n:=0;
    randomize;
    for k:integer:=1 to 10 do
    begin
    a[k]:= random(1,100);
    total:= total + a[k];
    end;
    average:= total/10;
    for k:integer:=1 to 10 do
    begin
    if a[k]>average then n:=n+k;
    if a[k]>average then writeln(' ', a[k],'-',k)
    else
    writeln(' ', a[k]);
    end;
    writeln;
    writeln('average = ',average, ' sum_index = ', n )
    end.

    0



Топ пользователи