Составить программу вычисления, w = b + a - сумма положительных элементов массива; b – номер наименьшего элемента массива; c - количество элементов массива кратных пяти. полученные значения элементов а,b,c,w вывести на печать.(паскаль)

285

485

Посмотреть ответы 2

Ответы на вопрос:

anna16191

Информатика

4,6(11 оценок)

// pascalabc.net 3.0, сборка 1150 от 22.01.2016 begin var n: =readinteger('количество элементов массива '); var m: =arrrandom(n,-50,50); m.println(', '); var a: =0; var b: =0; var c: =0; for var i: =0 to n-1 do begin if m[i]> 0 then a: =a+m[i]; if m[i]< m[b] then b: =i; if m[i] mod 5 = 0 then inc(c) end; var w: =(b+1)+a/(c+1); writelnformat('a={0}, b={1}, c={2}, w={3}',a,b+1,c,w); writeln('принято, что элементы массива нумеруются от единицы') end. тестовое решение: количество элементов массива 13 -43, -15, 18, -8, -13, -47, -36, 6, -16, 45, 33, 33, -24 a=135, b=6, c=2, w=51 принято, что элементы массива нумеруются от единицы