//Pascal ABC.NET Версия 2.2 Сборка 790
var ar:array[1..10] of integer;
i:integer;
begin;
randomize;
writeln('First array');
for i:=1 to 10 do
begin;
ar[i]:=random(1,10);
writeln(ar[i]);
if ar[i] mod 2=0 then inc(ar[i]);
end;
writeln('Final array');
for i:=1 to 10 do
writeln(ar[i]);
end.
Пример вывода:
First array
3 3 4 10 10 4 6 9 6 7
Final array
3 3 5 11 11 5 7 9 7 7<span>
</span>
Посмотрите такая страница подойдет?
Во вложении - файл с рабочей книгой Excel 2003. Поскольку на мои вопросы ответов не последовало, написал так, как понял задание.
Форма появляется, если переключиться между листами рабочей книги кликом мышью по ярлычку листа.
Нет. есть ситуации, в которых важно одно свлйство объекта и не важно другое. например, вы дрессируете собаку. вам важно что она умеет делать, но абсолютно не важен материал из которого она сделана