Измените программу так что: Число элементов массива формировалось случайным образом из диапазона [-50;9]. Вывод массива осуществлялся в столбец.
Программа:
Program pr1;
Var mas:array[1..100] of integer;
i:integer;
Begin
Randomize;
For i:=1 to 100 do
begin
mas:=Random(108);
Write(mas[i]);
end;
END.
Для создания компьютерной графики используют множество различных приложений. Условно их можно разделить на следующие группы
Универсальные 3D редакторы, как правило, содержат все необходимое для CG: инструменты моделирования, анимации и визуализации.
На вопросы: «Какой из пакетов лучший? Что выбрать?» нет правильных ответов. Выбор инструмента зависит от многих факторов: личных предпочтений CG-художника, поставленных целей, финансовых возможностей и т.д.
При выборе приложения мы советуем обратить внимание на следующее:
функционал программы;
удобство пользования (интуитивный интерфейс и т.д.);
доступность, цена.
Большинство специалистов в своей работе используют сразу несколько программ: некоторые вещи проще и быстрее делать в сторонних приложениях (детализация, постобработка, симуляция и пр.). Поэтому не ограничивайте себя рамками только одного пакета. Тем более, что выбор инструментов сегодня просто огромный.
Объяснение:
var n, x, L, F, k, kint, max:integer;
begin
kint := 0;
max := 0;
for n := 2095 to 19402 do begin
x := n;
k := 0;
while x > 0 do begin
k := k + 1;
if k = 1 then
L := x mod 10;
F := x mod 10;
x := x div 10;
end;
if (F > L)and(n mod 10 = 1)and((n div 10)mod 10 = 2)then begin
kint := kint + 1;
if n > max then
max := n;
end;
end;
writeln(kint,' ',max);
end.
Объяснение:
F - первая цифра числа
L - последняя(Слева направо)