Дан одномерный массив состоящий из 30 элементов целого типа. Найти произведение элементов массива, больше некоторого Х (вводится пользователем с клавиатуры) вывести результат на экран. Нарисовать блок схему
var m:array[1..30] of integer; x,s,i:integer; begin randomize; readln(x); s:=1;
For i:=1 to 30 do m[i]:=random(101);
For i:=1 to 30 do If m[i]>x then s:=s*m[i];
writeln('Произведение элементов массива = ',s);
end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
