Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
1-2
------------------------------------
86 клавиш, ну т.е. 1 ответ
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(ReadInteger('x ='), -17, 17);
a.Println;
a.Transform(x -> -x);
a.Println;
end.
Можно, т.к. они несут информацию о свойствах чего либо, например рсписание уроков о последовательности уроков; программа телевидения о последовательности телепередач; рецепт на получение лекарства не является инф.моделью. он не отражает свойств в данном случае лекарства.
Валя, Вася,Вова,вода,волк,Наташа,панамка ананас