Нужно написать программу на паскале. вычислить среднеарифметическое четных элементов массива c(10), не меньших 10

168

248

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

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

talyaarpaci

Информатика

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

Var c: array[1..10] of integer; srar: real; k, i, s: integer; begin s: =0; {обнуляем счетчик элементов(к) и сумму(s)} k: =0; randomize; for i: =1 to 10 do {заполняем массив} c[i]: =random(50); for i: =1 to 10 do if (c[i] mod 2=0) and (c[i]> 10) then {если элемент массива четный и больше 10 увеличиваем счетчик к, увеличиваем сумму s} begin k: =k+1; s: =s+с[i]; end; srar: =s/k; for i: =1 to 10 do {выводим массив} write(c[i], ' '); writeln; writeln('sr.arifmeticheskoe=', srar: 5: 2); end.

Vantsyan0

Информатика

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

1.латиноамериканские города ну или можно еще туристические : ) 2.персонажи произведении зарубежных писателей или персонажи знаменитых детективов 3.города россии или "столицы" россии 4.реки африки 5.произведения а.с пушкина 6.города-"герой" и больше идей нет : ( ну а названия выбирай по своему усмотрению ; )