profile
Опубликовано 5 лет назад по предмету Информатика от vitokb

В массиве из 10 целых чисел подсчитать сумму
элементов, стоящих правее минимального. на паскале

  1. Ответ
    Ответ дан yasadc
    uses crt;
    const n=10;
    var a:array[1..n] of integer;
    s,i,min,k:integer;
    begin
    min:=1000;
    for i:=1 to n do
    begin
    readln(a[i]);
    if a[i]<min then begin min:=a[i]; k:=i; end;
    end;
    s:=0;
    for i:=k+1 to n do
    s:=s+a[i];
    writeln(s);
    end.



Самые новые вопросы