(паскаль) молю . в произвольном одномерном массиве найти сумму индексов положительных элементов.

// pascalabc.net 3.1, сборка 1218 от 12.04.2016 begin   var a: =arrrandom(readinteger('n=',50);   a.println;   writeln('s=',a.select((x,i)-> rec(x,i+(x-> x.item1> 0)       .select(x-> x.item2).sum) end. тестовое решение: n= 15 -27 45 -9 38 -30 -22 -36 18 -40 5 -47 5 33 -21 -44 s=49

Var a: array [1..1000] of integer;             i,n,s: integer; begin        s: =0;     writeln ('введите размер массива');         readln (n);         for i: = 1 to n do begin            write ('a[',i,']= ');             readln (a[i]);           if a[i]> 0 then s: =s+i;           end; writeln ('сумма индексов положительных элементов = ',s); end.

ну, без понятия на каком языке писать - не решаема.

однако, на "метаязыке":

 

задать массив матрица[5,5];

получить ввод в ввод;

если ввод = 's', то {

сумма = 0;

x = 1;

продолжать, пока x < = 5  {

сумма =  сумма +  матрица[x,x];

x = x + 1;

}

вывести  сумма;

} иначе, если  ввод равен 'a' или 'b' или 'c', то {

x = 1;

продолжать, пока x < = 5  {

среднарифм = 0;

y = 1;

продолжать, пока y < = 5  {

среднарифм  =  среднарифм  +  матрица[x,y];

y  = y + 1;

}

вывести  среднарифм / 5;

x = x + 1;

}

}  иначе, если  ввод = 'm', то {

минимум =  матрица[1,1];

максимум =  матрица[1,1];

x = 1;

продолжать, пока x < = 5  {

y = 1;

продолжать, пока y < = 5  {

если  матрица[x,y]  <   минимум   то  минимум =  матрица[x,y];

если  матрица[x,y]  >   максимум    то  максимум =  матрица[x,y];

y  = y + 1;

}

}

вывести  минимум;

вывести  максимум;

}

юра из новгородатоля из москвы

алеша из томска

коля из перми

витя из санкт-петербурга