Информатика, опубликовано 2018-08-22 22:09:27 by Гость
МАССИВ...........1. Задайте случайным образом массив от 0 до 100, состоящий из 10 элементов. 2. Подсчитайте количество элементов массива, удовлетворяющих условию:50 3. Найдите сумму этих элементов.
Ответ оставил Гость
VarM:array[0..100]of integer;a,b,c: integer;beginrandomize;write(введите кол-во элементов );read(a);c:=0for b:=1 to a doM[a]:=random(0,100);If M[a]50 then c:=c+1writeln(элементов, удовлетворяющих условию , c);end.Вроде так)))
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на