Правильный ответ 4. В первом цикле 11-ти элементам присваиваются значения от 2 до 12. Во втором первые 5 элементов увеличиваются на 1, а последние 5 - уменьшаются на 1. Итого получается: 3,4,5,6,7,7,7,8,9,10,11
var i : integer;
a : string;
b :array [1..16] of integer;
begin
a :='';
Randomize;
for i:= 1 to 16 do
begin
b[i]:= Random(-20,20);
if b[i] mod 2 = 0 then a:=a+ i + ' ';
end;
Writeln(a);
end.
1. Правой мышкой на объект, потом свойства и готово.
2. Для того чтобы изменить значок для какой-то одной папки, щелкните по ней правой кнопкой мышки, и в контекстном меню выберите пункт меню «Свойства». После этого перейдите в окне «Свойства» на вкладку «Настройка» - там будет пункт «Значки папок». Нажимайте на кнопку «Сменить значок» и выбирайте любой из значков, которые предлагает вам операционная система. Для того чтобы изменить значок для какой-то одной папки, щелкните по ней правой кнопкой мышки, и в контекстном меню выберите пункт меню «Свойства». После этого перейдите в окне «Свойства» на вкладку «Настройка» - там будет пункт «Значки папок». Нажимайте на кнопку «Сменить значок» и выбирайте любой из значков, которые предлагает вам операционная система.
Var a,b:integer;
Begin
randomize;
a:=random(80001)-40000;
b:=random(80001)-40000;
if a>b then writeln(b,', ',a)
else writeln(a,', ',b);
End.