Заранее огромное . "заполнить массив из 8 эл-тов случайными числами в диапазоне от 1 до 10, и вывести на экран кол-во эл-тов с четными значениями и сумму эл-тов с нечетными числами

247

249

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

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

eeeevaa

Информатика

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

// pascalabc.net 3.3, сборка 1555 от 21.10.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(8,1,10); a.println; writeln('количество элементов с четными значениями ', a.where(x-> x.iseven).count); writeln('сумма элементов с нечетными значениями ', a.where(x-> x.isodd).sum) end. пример 7 4 8 6 5 8 7 6 количество элементов с четными значениями 5 сумма элементов с нечетными значениями 19

Рома228119

Информатика

4,8(41 оценок)

Var a : array[1..8]of integer; f,x,i: integer; beginrandomize; f: =0; x: =0; for i : = 1 to 8 do begin a[i] : = random(9); write(a[i],'; '); if (a[i] mod 2=0) then f: =f+1 else x: =x+a[i]; end; ; writeln; writeln('кол-во четных ',f,' сумма не четных ',x); end.

sashazhuravleva

Информатика

4,5(61 оценок)

Var x,a,b,c,max,min,mid: real; begin readln(x); a: =sin(x); b: =cos(x); if a> 0 then begin c: =ln(x); if (a> b) and (a> c) then max: =a else if (b> a) and (b> c) then max: =b else max: =c; if (a< b) and (a< c) then min: =a else if (b< a) and (b< c) then min: =b else min: =c; if (a> min) and (a< max) then mid: =a else if (b> min) and (b< max) then mid: =b else mid: =c; writeln(min,' ',mid,' ',max); end else if a> b then writeln(b,' ',a) else writeln(a,' ',b); end.